Change 11078 by jhi@alpha on 2001/07/02 13:03:44
Subject: [PATCH] Report /pro/3gl/CPAN/perl-5.7.1
From: "H.M. Brand" <[EMAIL PROTECTED]>
Date: Mon, 02 Jul 2001 11:18:57 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/write.t#17 edit
Differences ...
==== //depot/perl/t/op/write.t#17 (xtext) ====
Index: perl/t/op/write.t
--- perl/t/op/write.t.~1~ Mon Jul 2 07:15:05 2001
+++ perl/t/op/write.t Mon Jul 2 07:15:05 2001
@@ -289,7 +289,9 @@
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>) {
End of Patch.
