3 unless ($Config{useithreads}) {
4 print "1..0 # SKIP your perl does not support ithreads\n";
10 unless (eval { require threads }) {
11 print "1..0 # SKIP threads.pm not installed\n";
19 our $had_error :shared;
20 END { $? = $had_error||0 }
25 # load it before spawning a thread, that's the whole point
26 require Devel::GlobalDestruction::XS;
30 # just die so we don't need to deal with testcount skew
31 unless ( ($_[0]||'') eq 'arg' ) {
33 die "Argument passing failed!";
36 delete $INC{'./t/01_basic.t'};
42 threads->create('do_test', 'arg')->join