From cd055192fbefd3cee30dd5dd4503700cb38c3fde Mon Sep 17 00:00:00 2001
From: Artur Bergman <sky@nanisky.com>
Date: Wed, 1 May 2002 13:40:58 +0000
Subject: [PATCH] Flush directly to avoid erros when running from test harness

p4raw-id: //depot/perl@16307
---
 ext/threads/shared/t/cond.t  | 1 +
 ext/threads/shared/t/queue.t | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index c143c02395..b757fb5af7 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 01a1b5a085..fc62da1d8b 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;