This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix various details in win32 makefiles and Config.pm setup.
[perl5.git] / ext / Thread / join.t
CommitLineData
d9bb3666
MB
1use Thread;
2sub foo {
3 print "In foo with args: @_\n";
4 return (7, 8, 9);
5}
6
7print "Starting thread\n";
8$t = new Thread \&foo, qw(foo bar baz);
9print "Joining with $t\n";
10@results = $t->join();
11print "Joining returned @results\n";