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 {
20 print "Level $level for $arg\n";
21 print "(something is wrong)\n" if $level < 0 || $level > 1;
24 print "Back to level $level\n";
32 single_file("bar $i");
33 sleep 1 if rand > 0.5;
44 single_file("foo $i");
45 sleep 1 if rand > 0.5;
56 single_file("baz $i");
57 sleep 1 if rand > 0.5;
66 $foo = new Thread \&start_foo;
67 $bar = new Thread \&start_bar;
68 $baz = new Thread \&start_baz;
72 print "main: threads finished, exiting\n";