From 0ecd3ba2f9cc10124e1b1548816d989cfc59a802 Mon Sep 17 00:00:00 2001
From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 1 May 2001 21:05:31 +0100
Subject: [PATCH] Autoflush in tests as appropriate Message-Id:
 <E14ufSl-0007gS-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@9932
---
 t/lib/syslfs.t    | 2 ++
 t/op/die_exit.t   | 2 ++
 t/op/lex_assign.t | 1 +
 t/op/lfs.t        | 2 ++
 t/op/taint.t      | 2 ++
 5 files changed, 9 insertions(+)

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 };
-- 
1.8.3.1