Ooops. Not everybody does threads.
[p5sagit/p5-mst-13.2.git] / ext / threads / shared / t / semaphore.t
index e69de29..9865e23 100644 (file)
@@ -0,0 +1,15 @@
+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;
+print "ok 1\n";
+