Fix threading tests for bad perls:
gfx [Sat, 3 Jul 2010 04:33:35 +0000 (13:33 +0900)]
See http://www.cpantesters.org/cpan/report/07540783-b19f-3f77-b713-d32bba55d77f

t/001_mouse/060-threads.t

index e82f7c5..65331f0 100644 (file)
@@ -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;