Add support for async.

p4raw-id: //depot/perl@16452

1 files changed, 6 insertions, 1 deletions

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index a8a340f1f6..f76d55bbb5 100755
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -50,7 +50,7 @@ our %EXPORT_TAGS = ( all => [qw()]);
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
 
 our @EXPORT = qw(
-	
+async	
 );
 our $VERSION = '0.99';
 
@@ -60,6 +60,11 @@ sub equal {
     return 0;
 }
 
+sub async (&;@) {
+    my $cref = shift;
+    return threads->new($cref,@_);
+}
+
 $threads::threads = 1;
 
 bootstrap threads $VERSION;