Fix threading tests for bad perls:

[gitmo/Mouse.git] / t / 001_mouse / 060-threads.t

diff --git a/t/001_mouse/060-threads.t b/t/001_mouse/060-threads.t
index e82f7c5..65331f0 100644 (file)
--- a/t/001_mouse/060-threads.t
+++ b/t/001_mouse/060-threads.t
@@ -1,7 +1,7 @@
 #!perl
 use strict;
 use warnings;
-use constant HAS_THREADS => eval{ require threads };
+use constant HAS_THREADS => eval{ require threads && require threads::shared };
 
 use if !HAS_THREADS, 'Test::More', (skip_all => "This is a test for threads ($@)");
 use Test::More;