Protect the (original) thread tests against testing if no 5.005

[p5sagit/p5-mst-13.2.git] / ext / Thread / io.t

diff --git a/ext/Thread/io.t b/ext/Thread/io.t
index 6012008..693d910 100644 (file)
--- a/ext/Thread/io.t
+++ b/ext/Thread/io.t
@@ -1,3 +1,15 @@
+BEGIN {
+    eval { require Config; import Config };
+    if ($@) {
+       print "1..0 # Skip: no Config\n";
+       exit(0);
+    }
+    if ($Config{extensions} !~ /\bThread\b/) {
+       print "1..0 # Skip: no use5005threads\n";
+       exit(0);
+    }
+}
+
 use Thread;
 
 sub counter {