diff options
| author | H.M. Brand <merijn@l1.procura.nl> | 2001-07-02 13:18:57 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:03:44 +0000 |
| commit | 362819fd800ded1d8cc98361c60215d14b9be135 (patch) | |
| tree | 6b05c39a2e5f424d58bb3fade807d821d97609c4 /t | |
| parent | 3a661e7cee6fda8702fbc0ddd2e03d2f93b04c2b (diff) | |
| download | perl-362819fd800ded1d8cc98361c60215d14b9be135.tar.gz | |
Report /pro/3gl/CPAN/perl-5.7.1
Message-Id: <20010702100811.4999.MERIJN@l1.procura.nl>
p4raw-id: //depot/perl@11078
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/write.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/write.t b/t/op/write.t index ac6c03580a..a2b5c1c1d3 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>) { |