close the produced test file so win32 can unlink it
authorTony Cook <tony@develop-help.com>
Tue, 28 Dec 2010 11:39:14 +0000 (22:39 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 28 Dec 2010 11:39:14 +0000 (22:39 +1100)
Previously runs would leave a GLOB(0x...) file in t/

t/io/open.t

index 5a8f008..3548d9b 100644 (file)
@@ -333,6 +333,7 @@ fresh_perl_is(
       print $fh "hello";
      "".*STDOUT;
       print "ok";
+      close $fh;
       unlink \*STDOUT;
     ',
     'ok', { stderr => 1 },