Add support for async.
Artur Bergman [Tue, 7 May 2002 21:15:34 +0000 (21:15 +0000)]
p4raw-id: //depot/perl@16452

ext/threads/threads.pm

index a8a340f..f76d55b 100755 (executable)
@@ -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;