diff options
Diffstat (limited to 'contrib/perl5/ext/Thread/die2.t')
-rw-r--r-- | contrib/perl5/ext/Thread/die2.t | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/contrib/perl5/ext/Thread/die2.t b/contrib/perl5/ext/Thread/die2.t deleted file mode 100644 index f6b6955..0000000 --- a/contrib/perl5/ext/Thread/die2.t +++ /dev/null @@ -1,16 +0,0 @@ -use Thread 'async'; - -$t = async { - sleep 1; - print "here\n"; - die "success if preceded by 'thread died...'"; - print "shouldn't get here\n"; -}; - -print "joining...\n"; -@r = eval { $t->join; }; -if ($@) { - print "thread died with message: $@"; -} else { - print "thread failed to die successfully\n"; -} |