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 (file)
--- 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 (executable)
--- 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 (executable)
--- 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 (file)
--- 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 (executable)
--- 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 };