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