2 eval { require Config; import Config };
4 print "1..0 # Skip: no Config\n";
19 while ($arg = shift) {
20 my $delay = int(rand(500));
22 print "$thread arg $i is $arg\n";
31 my(@args) = ($thread) x int(rand(10));
32 print "$thread $count calling printargs @args\n";
33 printargs($thread, @args);
37 new Thread (\&start_thread, "A");
38 new Thread (\&start_thread, "B");
39 #new Thread (\&start_thread, "C");
40 #new Thread (\&start_thread, "D");
41 #new Thread (\&start_thread, "E");
42 #new Thread (\&start_thread, "F");
44 print "main: exiting\n";