Ooops. Not everybody does threads.

p4raw-id: //depot/perl@16323

diff --git a/ext/threads/shared/t/semaphore.t b/ext/threads/shared/t/semaphore.t
index b1858ec..9865e23 100644 (file)
--- a/ext/threads/shared/t/semaphore.t
+++ b/ext/threads/shared/t/semaphore.t
@@ -1,3 +1,13 @@
+BEGIN {
+    chdir 't' if -d 't';
+    push @INC ,'../lib';
+    require Config; import Config;
+    unless ($Config{'useithreads'}) {
+        print "1..0 # Skip: no threads\n";
+        exit 0;
+    }
+}
+
 print "1..1\n";
 use threads;
 use threads::shared::semaphore;