From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 May 2002 02:47:22 +0000 (+0000)
Subject: Ooops.  Not everybody does threads.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb4ae831ee98c6c39c501bff0ac47785712dc4bb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;