threads 1.32

[p5sagit/p5-mst-13.2.git] / ext / threads / t / kill.t

diff --git a/ext/threads/t/kill.t b/ext/threads/t/kill.t
index 20e25c0..5d25db3 100644 (file)
--- a/ext/threads/t/kill.t
+++ b/ext/threads/t/kill.t
@@ -16,9 +16,17 @@ BEGIN {
 use ExtUtils::testlib;
 
 use threads;
-use threads::shared;
 
 BEGIN {
+    eval {
+        require threads::shared;
+        import threads::shared;
+    };
+    if ($@ || ! $threads::shared::threads_shared) {
+        print("1..0 # Skip: threads::shared not available\n");
+        exit(0);
+    }
+
     local $SIG{'HUP'} = sub {};
     my $thr = threads->create(sub {});
     eval { $thr->kill('HUP') };