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);
21 print "Joining with $t\n";
22 @results = $t->join();
23 print "Joining returned ", scalar(@results), " values: @results\n";