From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 16 Oct 2000 23:28:42 +0000 (+0100)
Subject: Detect early whether the std streams have gone bad.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7564211056a3cd368b1f29533635be8c40a84570;p=p5sagit%2Fp5-mst-13.2.git

Detect early whether the std streams have gone bad.

Subject: PATCH (was Re: [ID 20001016.007] Not OK: perl v5.7.0 +DEVEL7228 on i586-linux 2.2.16 (UNINSTALLED))
Message-ID: <20001016232842.A37942@plum.flirble.org>

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

diff --git a/t/op/misc.t b/t/op/misc.t
index f0d7f54..f442494 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -371,8 +371,8 @@ argv <e>
 # fdopen from a system descriptor to a system descriptor used to close
 # the former.
 open STDERR, '>&=STDOUT' or die $!;
-select STDOUT; $| = 1; print fileno STDOUT;
-select STDERR; $| = 1; print fileno STDERR;
+select STDOUT; $| = 1; print fileno STDOUT or die $!;
+select STDERR; $| = 1; print fileno STDERR or die $!;
 EXPECT
 1
 2