2 eval { require Config; import Config };
4 print "1..0 # Skip: no Config\n";
13 sub single_file : locked {
17 print "Uh oh: $who entered while locked by $global\n" if $global;
20 for ($i = 0; $i < int(10 * rand); $i++) {
22 select(undef, undef, undef, 0.1);
30 for ($j = 0; $j < 10; $j++) {
32 for ($i = 0; $i < int(10 * rand); $i++) {
34 select(undef, undef, undef, 0.1);
41 for ($j = 0; $j < 10; $j++) {
43 for ($i = 0; $i < int(10 * rand); $i++) {
45 select(undef, undef, undef, 0.1);
52 for ($j = 0; $j < 10; $j++) {
54 for ($i = 0; $i < int(10 * rand); $i++) {
56 select(undef, undef, undef, 0.1);
65 Each pair of square brackets [...] should contain a repeated sequence of
66 a unique upper case letter. Lower case letters may appear randomly both
67 in and out of the brackets.
69 $foo = new Thread \&start_a;
70 $bar = new Thread \&start_b;
71 $baz = new Thread \&start_c;
72 print "\nmain: joining...\n";