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";
27 my $i = int(rand(1000));
39 my $i = int(rand(1000));
51 my $i = int(rand(1000));
61 new Thread \&uppercase;
62 new Thread \&lowercase;