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";
15 use Thread::Specific qw(foo);
18 my $tid = Thread->self->tid;
19 my Thread::Specific $tsd = Thread::Specific::data;
20 for (my $i = 0; $i < 5; $i++) {
22 print "thread $tid count: $tsd->{foo}\n";
23 select(undef, undef, undef, rand(2));
27 for(my $t = 0; $t < 5; $t++) {