[perl5.git] / ext / Thread / join.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);
print "Joining with $t\n";
@results = $t->join();
print "Joining returned ", scalar(@results), " values: @results\n";
Commit	Line	Data
d9bb3666 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	print "Joining with $t\n";
	10	@results = $t->join();
458fb581	11	print "Joining returned ", scalar(@results), " values: @results\n";