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