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";
21 print "Randomising to $seed\n";
26 my ($depth, $a, $b, $c) = @_;
28 print "whoami ($depth): $a $b $c\n";
30 whoami($depth - 1, $a, $b, $c) if $depth > 0;
34 my $r = 3 + int(10 * rand);
35 print "start_foo: r is $r\n";
36 whoami($r, "start_foo", "foo1", "foo2");
37 print "start_foo: finished\n";
41 my $r = 3 + int(10 * rand);
42 print "start_bar: r is $r\n";
43 whoami($r, "start_bar", "bar1", "bar2");
44 print "start_bar: finished\n";
47 $foo = new Thread \&start_foo;
48 $bar = new Thread \&start_bar;
49 print "main: exiting\n";