Commit | Line | Data |
---|---|---|
0fcb073c | 1 | BEGIN { |
2 | eval { require Config; import Config }; | |
3 | if ($@) { | |
4 | print "1..0 # Skip: no Config\n"; | |
5 | exit(0); | |
6 | } | |
0fcb073c | 7 | } |
8 | ||
3487771d | 9 | use Thread 'async'; |
10 | ||
11 | $t = async { | |
12 | print "here\n"; | |
13 | die "success"; | |
14 | print "shouldn't get here\n"; | |
15 | }; | |
16 | ||
17 | sleep 1; | |
18 | print "joining...\n"; | |
19 | eval { @r = $t->join; }; | |
20 | if ($@) { | |
21 | print "thread died with message: $@"; | |
22 | } else { | |
23 | print "thread failed to die successfully\n"; | |
24 | } |