Commit | Line | Data |
---|---|---|
3487771d | 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 | } |