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 / die.t
1 use Thread 'async';
2
3 $t = async {
4     print "here\n";
5     die "success";
6     print "shouldn't get here\n";
7 };
8
9 sleep 1;
10 print "joining...\n";
11 eval { @r = $t->join; };
12 if ($@) {
13     print "thread died with message: $@";
14 } else {
15     print "thread failed to die successfully\n";
16 }