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";
21 if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) {
23 no warnings 'redefine';
24 my $orig = \&DynaLoader::bootstrap;
25 *DynaLoader::bootstrap = sub {
26 die 'no XS' if $_[0] eq 'Devel::GlobalDestruction';
32 my $t = threads->create(sub { do 't/01_basic.t' });