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 my $thread = shift @copyargs;
24 while ($arg = shift @copyargs) {
25 my $delay = int(rand(500));
27 print "$thread arg $i is $arg\n";
34 my $thread = $threadargs[0];
37 my(@args) = ($thread) x int(rand(10));
38 print "$thread $count calling printargs @args\n";
39 printargs($thread, @args);
43 new Thread (\&start_thread, "A");
44 new Thread (\&start_thread, "B");
45 new Thread (\&start_thread, "C");
46 new Thread (\&start_thread, "D");
47 new Thread (\&start_thread, "E");
48 new Thread (\&start_thread, "F");
50 print "main: exiting\n";