ext/Thread/join2.t

   1 use Thread;
   2 sub foo {
   3     print "In foo with args: @_\n";
   4     return (7, 8, 9);
   5 }
   6
   7 print "Starting thread\n";
   8 $t = new Thread \&foo, qw(foo bar baz);
   9 sleep 2;
  10 print "Joining with $t\n";
  11 @results = $t->join();
  12 print "Joining returned @results\n";