[p5sagit/p5-mst-13.2.git] / ext / Thread / join.tx

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