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

use Thread;
sub start_here {
    my $i;
    print "In start_here with args: @_\n";
    for ($i = 1; $i <= 5; $i++) {
	print "start_here: $i\n";
	sleep 1;
    }
}

print "Starting new thread now\n";
$t = new Thread \&start_here, qw(foo bar baz);
print "Started thread $t\n";
for ($count = 1; $count <= 5; $count++) {
    print "main: $count\n";
    sleep 1;
}
Commit	Line	Data
d9bb3666 MB	1	use Thread;
	2	sub start_here {
	3	my $i;
	4	print "In start_here with args: @_\n";
	5	for ($i = 1; $i <= 5; $i++) {
	6	print "start_here: $i\n";
	7	sleep 1;
	8	}
	9	}
	10
	11	print "Starting new thread now\n";
	12	$t = new Thread \&start_here, qw(foo bar baz);
	13	print "Started thread $t\n";
	14	for ($count = 1; $count <= 5; $count++) {
	15	print "main: $count\n";
	16	sleep 1;
	17	}