From 7564211056a3cd368b1f29533635be8c40a84570 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 17 Oct 2000 00:28:42 +0100 Subject: [PATCH] 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 --- t/op/misc.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 # 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 -- 2.7.4