summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2001-10-22 08:35:09 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2001-10-22 08:35:09 +0000
commit56a2bab7c22806897577c69e86796669bc5a9a3a (patch)
tree01fcf71c730d694cf7d8f5d70e941559de86de9e /ext
parent3aaf42a70f921d9bb089a4793680c24d83c92281 (diff)
downloadperl-56a2bab7c22806897577c69e86796669bc5a9a3a.tar.gz
All tests pass (legitimately) on ithreads
p4raw-id: //depot/perlio@12557
Diffstat (limited to 'ext')
-rwxr-xr-xext/threads/t/basic.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t
index 0608b5e4ba..399b017b44 100755
--- a/ext/threads/t/basic.t
+++ b/ext/threads/t/basic.t
@@ -6,7 +6,7 @@
#
# And even when that will be fixed, this is a basic
# test and should not rely on shared variables
-#
+#
# This will test the basic API, it will not use any coderefs
# as they are more advanced
#
@@ -25,7 +25,7 @@ BEGIN {
use ExtUtils::testlib;
use strict;
-BEGIN { print "1..15\n" };
+BEGIN { $| = 1; print "1..15\n" };
use threads;
@@ -40,12 +40,12 @@ print "ok 1\n";
sub ok {
my ($id, $ok, $name) = @_;
-
+
# You have to do it this way or VMS will get confused.
print $ok ? "ok $id - $name\n" : "not ok $id - $name\n";
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
-
+
return $ok;
}