close the produced test file so win32 can unlink it

Previously runs would leave a GLOB(0x...) file in t/

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