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";
19 print "In start_here with args: @_\n";
20 for ($i = 1; $i <= 5; $i++) {
21 print "start_here: $i\n";
27 tie my(%h), 'Tie::StdHash';
29 print "running on $h{archname}\n";
32 print "Starting new thread now\n";
33 $t = new Thread \&start_here, qw(foo bar baz);
34 print "Started thread $t\n";
35 for ($count = 1; $count <= 5; $count++) {
36 print "main: $count\n";