From: H.M. Brand <merijn@l1.procura.nl>
Date: Mon, 2 Jul 2001 11:18:57 +0000 (+0200)
Subject: Report /pro/3gl/CPAN/perl-5.7.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=362819fd800ded1d8cc98361c60215d14b9be135;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>) {