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";
17 sub single_file : locked {
21 print "Uh oh: $who entered while locked by $global\n" if $global;
24 for ($i = 0; $i < int(10 * rand); $i++) {
26 select(undef, undef, undef, 0.1);
34 for ($j = 0; $j < 10; $j++) {
36 for ($i = 0; $i < int(10 * rand); $i++) {
38 select(undef, undef, undef, 0.1);
45 for ($j = 0; $j < 10; $j++) {
47 for ($i = 0; $i < int(10 * rand); $i++) {
49 select(undef, undef, undef, 0.1);
56 for ($j = 0; $j < 10; $j++) {
58 for ($i = 0; $i < int(10 * rand); $i++) {
60 select(undef, undef, undef, 0.1);
69 Each pair of square brackets [...] should contain a repeated sequence of
70 a unique upper case letter. Lower case letters may appear randomly both
71 in and out of the brackets.
73 $foo = new Thread \&start_a;
74 $bar = new Thread \&start_b;
75 $baz = new Thread \&start_c;
76 print "\nmain: joining...\n";