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";
15 print "In foo with args: @_\n";
19 print "Starting thread\n";
20 $t = new Thread \&foo, qw(foo bar baz);
22 print "Joining with $t\n";
23 @results = $t->join();
24 print "Joining returned @results\n";