X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c1f329308b702519079b58d1f4c523ce60dc9990..51dd5992be029393cb3f221313a1a6ec2a76c21a:/ext/Thread/Thread.pm

diff --git a/ext/Thread/Thread.pm b/ext/Thread/Thread.pm
index 2ace5dd..1936142 100644
--- a/ext/Thread/Thread.pm
+++ b/ext/Thread/Thread.pm
@@ -15,6 +15,10 @@ sub async (&) {
     return new Thread $_[0];
 }
 
+sub eval {
+    return eval { shift->join; };
+}
+
 bootstrap Thread;
 
 1;