diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-10-17 00:28:42 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-16 22:47:07 +0000 |
| commit | 7564211056a3cd368b1f29533635be8c40a84570 (patch) | |
| tree | 43453036c91796877d4b4158340ef024b73fbbe8 /t | |
| parent | 05af4e39b4c15021ef2967b252f6274e0fb723b9 (diff) | |
| download | perl-7564211056a3cd368b1f29533635be8c40a84570.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/misc.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index f0d7f547fc..f4424946a9 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 |