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 (executable)
--- 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