6 files changed, 6 insertions, 6 deletions
diff --git a/dist/IO/t/IO.t b/dist/IO/t/IO.t
index 2551b2468d..247940f8e4 100644
--- a/dist/IO/t/IO.t
+++ b/dist/IO/t/IO.t
@@ -93,7 +93,7 @@ my $fakemod = File::Spec->catfile( $fakedir, 'fakemod.pm' );
 my $flag;
 if ( -d $fakedir or mkpath( $fakedir ))
 {
-	if (open( OUT, ">$fakemod"))
+	if (open( OUT, '>', $fakemod ))
 	{
 		(my $package = <<'		END_HERE') =~ tr/\t//d;
 		package IO::fakemod;
diff --git a/dist/IO/t/io_dir.t b/dist/IO/t/io_dir.t
index 5472daa9b9..dc8eb43983 100644
--- a/dist/IO/t/io_dir.t
+++ b/dist/IO/t/io_dir.t
@@ -42,7 +42,7 @@ ok(!$dot->rewind, "rewind on closed");
 ok(!defined($dot->read));
 }
 
-open(FH,'>X') || die "Can't create x";
+open(FH,'>','X') || die "Can't create x";
 print FH "X";
 close(FH) or die "Can't close: $!";
 
diff --git a/dist/IO/t/io_file.t b/dist/IO/t/io_file.t
index 1cf60f5441..a3d79c908c 100644
--- a/dist/IO/t/io_file.t
+++ b/dist/IO/t/io_file.t
@@ -16,7 +16,7 @@ can_ok( $Class,                 "binmode" );
 ### use standard open to make sure we can compare binmodes
 ### on both.
 {   my $tmp;
-    open $tmp, ">$File" or die "Could not open '$File': $!";
+    open $tmp, '>', $File or die "Could not open '$File': $!";
     binmode $tmp;
     print $tmp $All_Chars; 
     close $tmp;
diff --git a/dist/IO/t/io_linenum.t b/dist/IO/t/io_linenum.t
index 2d44f50940..734854b928 100644
--- a/dist/IO/t/io_linenum.t
+++ b/dist/IO/t/io_linenum.t
@@ -26,7 +26,7 @@ sub lineno
 
 my $t;
 
-open (F, $File) or die $!;
+open (F, '<', $File) or die $!;
 my $io = IO::File->new($File) or die $!;
 
 <F> for (1 .. 10);
diff --git a/dist/IO/t/io_sock.t b/dist/IO/t/io_sock.t
index c9c443beb8..630b856625 100644
--- a/dist/IO/t/io_sock.t
+++ b/dist/IO/t/io_sock.t
@@ -214,7 +214,7 @@ if ( $^O eq 'qnx' ) {
 ### the client. We'll use own source code ...
 #
 local @data;
-if( !open( SRC, "< $0")) {
+if( !open( SRC, '<', $0)) {
     print "not ok 15 - $!\n";
 } else {
     @data = <SRC>;
diff --git a/dist/IO/t/io_unix.t b/dist/IO/t/io_unix.t
index 61ba3635f8..a6cd05c898 100644
--- a/dist/IO/t/io_unix.t
+++ b/dist/IO/t/io_unix.t
@@ -39,7 +39,7 @@ if ($^O eq 'os2') {	# Can't create sockets with relative path...
 }
 
 # Test if we can create the file within the tmp directory
-if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') {
+if (-e $PATH or not open(TEST, '>', $PATH) and $^O ne 'os2') {
     print "1..0 # Skip: cannot open '$PATH' for write\n";
     exit 0;
 }