Report /pro/3gl/CPAN/perl-5.7.1

Message-Id: <20010702100811.4999.MERIJN@l1.procura.nl>

p4raw-id: //depot/perl@11078

diff --git a/t/op/write.t b/t/op/write.t
index ac6c035..a2b5c1c 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -289,7 +289,9 @@ my $tm =  1;                # Top margin (empty lines before first output)
 my $bm =  2;           # Bottom marging (empty lines between last text and footer)
 my $lm =  4;           # Left margin (indent in spaces)
 
+select ((select (STDOUT), $| = 1)[0]);
 if ($lm > 0 and !open STDOUT, "|-") {  # Left margin (in this test ALWAYS set)
+    select ((select (STDOUT), $| = 1)[0]);
     my $i = 12;
     my $s = " " x $lm;
     while (<STDIN>) {