From: Stas Bekman <stas@stason.org>
Date: Wed, 27 Mar 2002 01:34:11 +0000 (+0800)
Subject: Re: Cygwin PerlIO.t failing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3351db0262a00327940d490d1d2727273740be19;p=p5sagit%2Fp5-mst-13.2.git

Re: Cygwin PerlIO.t failing
Message-ID: <3CA0B113.1070800@stason.org>

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

diff --git a/ext/PerlIO/PerlIO.t b/ext/PerlIO/PerlIO.t
index 457df83..d3de705 100644
--- a/ext/PerlIO/PerlIO.t
+++ b/ext/PerlIO/PerlIO.t
@@ -113,6 +113,7 @@ ok(close($utffh));
         #close STDOUT;
         my $status = open(STDOUT,">",\$var);
         my $error = "$!" unless $status; # remember the error
+	close STDOUT unless $status;
         open STDOUT,  ">&OLDOUT" or die "cannot dup OLDOUT: $!";
         print "# $error\n" unless $status;
         # report after STDOUT is restored