[perl5.git] / ext / Thread / join.tx

BEGIN {
    eval { require Config; import Config };
    if ($@) {
	print "1..0 # Skip: no Config\n";
	exit(0);
    }
}

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
0fcb073c JH	1	BEGIN {
	2	eval { require Config; import Config };
	3	if ($@) {
	4	print "1..0 # Skip: no Config\n";
	5	exit(0);
	6	}
0fcb073c JH	7	}
0fcb073c JH	8
d9bb3666 MB	9	use Thread;
	10	sub foo {
	11	print "In foo with args: @_\n";
	12	return (7, 8, 9);
	13	}
	14
	15	print "Starting thread\n";
	16	$t = new Thread \&foo, qw(foo bar baz);
	17	print "Joining with $t\n";
	18	@results = $t->join();
458fb581	19	print "Joining returned ", scalar(@results), " values: @results\n";