This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add socklen_t probe; Configure maintenance.
[perl5.git] / ext / Thread / join2.t
CommitLineData
609f3ea9
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);
9sleep 2;
10print "Joining with $t\n";
11@results = $t->join();
12print "Joining returned @results\n";