X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FPerl-Docs.git;a=blobdiff_plain;f=t%2Fwrite_file_win32.t;fp=t%2Fwrite_file_win32.t;h=1e424568fbe0eeda40c70b51b4485ba16d20d995;hp=2c4023ea2cc373714a9a78209c5e5e47a70cb940;hb=12444d55c2adf5750309cf8afdb16f9b247fd227;hpb=339c18216443e9e8b0b6183747fe325d6774baae

diff --git a/t/write_file_win32.t b/t/write_file_win32.t
index 2c4023e..1e42456 100644
--- a/t/write_file_win32.t
+++ b/t/write_file_win32.t
@@ -6,8 +6,9 @@ use Test::More tests => 1;
 BEGIN { $^W = 1 }
 
 sub simple_write_file {
-    open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";
-    print $fh $_[1];
+    open FH, ">$_[0]" or die "Couldn't open $_[0] for write: $!";
+    print FH $_[1];
+    close FH ;
 }
 
 sub newline_size {