From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Mar 2002 19:16:21 +0000 (+0000)
Subject: Noise with -w.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2655a377318baf22d2b1bf2d113f47ce1c4af14d;p=p5sagit%2Fp5-mst-13.2.git

Noise with -w.

p4raw-id: //depot/perl@15501
---

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index 5514191..6a59b9e 100644
--- 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