6 if (!$Config{useithreads}) {
7 print "1..0 # Skip: no ithreads\n";
10 if ($ENV{PERL_CORE_MINITEST}) {
11 print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
18 # Generate things like './op/regexp.t', './t/op/regexp.t', ':op:regexp.t'
20 = (join ('/', '.', @_), join ('/', '.', 't', @_), join (':', @_));
22 for my $file (@paths) {
24 print "# found tests in $file\n";
25 $::running_as_thread = "running tests in a new thread";
27 print "# running tests in a new thread\n";
28 my $curr = threads->create(sub {
30 return defined &curr_test ? curr_test() : ()
32 curr_test($curr) if defined $curr;
36 die "Cannot find " . join (" or ", @paths) . "\n";