[perl5.git] / ext / Thread / join2.t

use Thread;
sub foo {
    print "In foo with args: @_\n";
    return (7, 8, 9);
}

print "Starting thread\n";
$t = new Thread \&foo, qw(foo bar baz);
sleep 2;
print "Joining with $t\n";
@results = $t->join();
print "Joining returned @results\n";
Commit	Line	Data
609f3ea9 MB	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";