From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 1 May 2001 20:05:31 +0000 (+0100)
Subject: Autoflush in tests as appropriate
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ecd3ba2f9cc10124e1b1548816d989cfc59a802;p=p5sagit%2Fp5-mst-13.2.git

Autoflush in tests as appropriate
Message-Id: <E14ufSl-0007gS-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@9932
---

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 2bdb69d..6a5d9b7 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -16,6 +16,8 @@ BEGIN {
 
 use strict;
 
+$| = 1;
+
 our @s;
 our $fail;
 
diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index a389946..f758f9c 100755
--- a/t/op/die_exit.t
+++ b/t/op/die_exit.t
@@ -15,6 +15,8 @@ if ($^O eq 'mpeix') {
     exit 0;
 }
 
+$| = 1;
+
 my $perl = -e '../perl' ? '../perl' : -e './perl' ? './perl' : 'perl';
 
 use strict;
diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index d761f73..fb9fe4e 100755
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -5,6 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
+$| = 1;
 umask 0;
 $xref = \ "";
 $runme = ($^O eq 'VMS' ? 'MCR ' : '') . $^X;
diff --git a/t/op/lfs.t b/t/op/lfs.t
index 0a1c399..44a92c4 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -54,6 +54,8 @@ EOM
     print "1..0 # Skip: @_\n" if @_;
 }
 
+$| = 1;
+
 print "# checking whether we have sparse files...\n";
 
 # Known have-nots.
diff --git a/t/op/taint.t b/t/op/taint.t
index 2958a37..8ff566e 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -15,6 +15,8 @@ BEGIN {
 use strict;
 use Config;
 
+$| = 1;
+
 # We do not want the whole taint.t to fail
 # just because Errno possibly failing.
 eval { require Errno; import Errno };