projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
@stash_array = split(/pat/, str);
[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";