All the authors of these modules have now been contacted;
[p5sagit/p5-mst-13.2.git] / ext / Thread / join.tx
1 BEGIN {
2     eval { require Config; import Config };
3     if ($@) {
4         print "1..0 # Skip: no Config\n";
5         exit(0);
6     }
7 }
8
9 use Thread;
10 sub foo {
11     print "In foo with args: @_\n";
12     return (7, 8, 9);
13 }
14
15 print "Starting thread\n";
16 $t = new Thread \&foo, qw(foo bar baz);
17 print "Joining with $t\n";
18 @results = $t->join();
19 print "Joining returned ", scalar(@results), " values: @results\n";