This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename perl_thread to perl_os_thread.
[perl5.git] / ext / Thread / Thread.pm
index 2ace5dd..1936142 100644 (file)
@@ -15,6 +15,10 @@ sub async (&) {
     return new Thread $_[0];
 }
 
     return new Thread $_[0];
 }
 
+sub eval {
+    return eval { shift->join; };
+}
+
 bootstrap Thread;
 
 1;
 bootstrap Thread;
 
 1;