From: Artur Bergman <sky@nanisky.com>
Date: Wed, 1 May 2002 13:40:58 +0000 (+0000)
Subject: Flush directly to avoid erros when running from test harness
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd055192fbefd3cee30dd5dd4503700cb38c3fde;p=p5sagit%2Fp5-mst-13.2.git

Flush directly to avoid erros when running from test harness

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

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index c143c02..b757fb5 100644
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -7,6 +7,7 @@ BEGIN {
         exit 0;
     }
 }
+$|++;
 print "1..5\n";
 use strict;
 
diff --git a/ext/threads/shared/t/queue.t b/ext/threads/shared/t/queue.t
index 01a1b5a..fc62da1 100644
--- a/ext/threads/shared/t/queue.t
+++ b/ext/threads/shared/t/queue.t
@@ -15,7 +15,7 @@ use threads;
 use threads::queue;
 
 $q = new threads::shared::queue;
-
+$|++;
 print "1..26\n";
 
 my $test : shared = 1;