5 require Config; import Config;
6 unless ($Config{'useithreads'}) {
7 print "1..0 # Skip: no useithreads\n";
12 use ExtUtils::testlib;
14 BEGIN { print "1..6\n" };
20 use Devel::Peek qw(Dump);
25 # You have to do it this way or VMS will get confused.
26 print $ok ? "ok $test_id - $name\n" : "not ok $test_id - $name\n";
28 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
33 END { ok(1,"End block run once") }
34 threads->create(sub { eval "END { ok(1,'') }"})->join();
35 threads->create(sub { eval "END { ok(1,'') }"})->join();
36 threads->create(\&thread)->join();
39 eval "END { ok(1,'') }";
40 threads->create(sub { eval "END { ok(1,'') }"})->join();