projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
99b43a54dc548de6e6c933a6c00f2f2f9f8e8255
[p5sagit/p5-mst-13.2.git]
/
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";