1 package t::threads_check;
4 print "1..0 # SKIP $_[0]\n";
10 if ($0 eq '-' && $op) {
11 if ($op eq 'installed') {
12 eval { require threads } or exit 1;
14 elsif ($op eq 'create') {
16 threads->create(sub{ 1 })->join;
21 if (! $Config::Config{useithreads}) {
22 _skip "your perl does not support ithreads";
24 elsif (system "$^X", '-Mt::threads_check=installed') {
25 _skip "threads.pm not installed";
27 elsif (system "$^X", '-Mt::threads_check=create') {
29 #############################################################################
30 # Threads appear broken on this machine.
31 # Subsequent test will likely FAIL, due to your environment.
32 #############################################################################