Fixed race condtions and deadlocks in interaction with

[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / 0nothread.t

diff --git a/ext/threads/shared/t/0nothread.t b/ext/threads/shared/t/0nothread.t
index 9b08343..af83a41 100644 (file)
--- a/ext/threads/shared/t/0nothread.t
+++ b/ext/threads/shared/t/0nothread.t
@@ -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 @@ ok((require threads::shared),"Require module");
 array(24,[],'Thing');
 hash(24,[],'Thing');
 
+
 import threads::shared;
 share(\@array);