2 eval { require Config; import Config };
4 print "1..0 # Skip: no Config\n";
7 if ($Config{extensions} !~ /\bThread\b/) {
8 print "1..0 # Skip: no use5005threads\n";
14 use Thread::Semaphore;
16 my $sem = Thread::Semaphore->new(0);
20 for (my $i = 0; $i < $nthreads; $i++) {
22 my $tid = Thread->self->tid;
23 print "thread $tid started...\n";
25 print "thread $tid finishing\n";
29 print "main: started $nthreads threads\n";
32 my @list = Thread->list;
33 printf "main: Thread->list returned %d threads\n", scalar(@list);
35 foreach my $t (@list) {
36 print "inspecting thread $t...\n";
37 print "...deref is $$t\n";
38 print "...flags = ", $t->flags, "\n";
39 print "...tid = ", $t->tid, "\n";
41 print "main thread telling workers to finish off...\n";