Noise with -w.

p4raw-id: //depot/perl@15501

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index 5514191..6a59b9e 100644 (file)
--- a/ext/PerlIO/PerlIO.t
+++ b/ext/PerlIO/PerlIO.t
@@ -89,6 +89,7 @@ ok(close($utffh));
     open STDOUT,  ">&OLDOUT" or die "cannot dup OLDOUT: $!";
     # report after STDOUT is restored
     ok($status, '       re-open STDOUT');
+    close OLDOUT;
 }
 
 # in-memory open