Change 14464 by jhi@alpha on 2002/01/28 13:04:58
Integrate perlio; the 0nothread test failure without threads.
Affected files ...
.... //depot/perl/ext/threads/shared/t/0nothread.t#2 integrate
Differences ...
==== //depot/perl/ext/threads/shared/t/0nothread.t#2 (text) ====
Index: perl/ext/threads/shared/t/0nothread.t
--- perl/ext/threads/shared/t/0nothread.t.~1~ Mon Jan 28 06:15:05 2002
+++ perl/ext/threads/shared/t/0nothread.t Mon Jan 28 06:15:05 2002
@@ -1,5 +1,15 @@
-use Test::More tests => 53;
use strict;
+use Config;
+BEGIN {
+ require Test::More;
+ if ($Config{'useithreads'}) {
+ Test::More->import( tests => 53 );
+ }
+ else {
+ Test::More->import(skip_all => "no useithreads");
+ }
+}
+
my @array;
my %hash;
@@ -58,6 +68,7 @@
array(24,[],'Thing');
hash(24,[],'Thing');
+
import threads::shared;
share(\@array);
End of Patch.
