Report /pro/3gl/CPAN/perl-5.7.1
H.M. Brand [Mon, 2 Jul 2001 11:18:57 +0000 (13:18 +0200)]
Message-Id: <20010702100811.4999.MERIJN@l1.procura.nl>

p4raw-id: //depot/perl@11078

t/op/write.t

index ac6c035..a2b5c1c 100755 (executable)
@@ -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>) {