Flush directly to avoid erros when running from test harness

p4raw-id: //depot/perl@16307
This commit is contained in:
Artur Bergman 2002-05-01 13:40:58 +00:00
parent b7955c43d0
commit cd055192fb
2 changed files with 2 additions and 1 deletions

View File

@ -7,6 +7,7 @@ BEGIN {
exit 0;
}
}
$|++;
print "1..5\n";
use strict;

View File

@ -15,7 +15,7 @@ use threads;
use threads::queue;
$q = new threads::shared::queue;
$|++;
print "1..26\n";
my $test : shared = 1;