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";
23 while ($arg = shift) {
24 my $delay = int(rand(500));
26 print "$thread arg $i is $arg\n";
35 my(@args) = ($thread) x int(rand(10));
36 print "$thread $count calling printargs @args\n";
37 printargs($thread, @args);
41 new Thread (\&start_thread, "A");
42 new Thread (\&start_thread, "B");
43 #new Thread (\&start_thread, "C");
44 #new Thread (\&start_thread, "D");
45 #new Thread (\&start_thread, "E");
46 #new Thread (\&start_thread, "F");
48 print "main: exiting\n";