From: Artur Bergman <sky@nanisky.com>
Date: Tue, 7 May 2002 21:15:34 +0000 (+0000)
Subject: Add support for async.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dcb6ccbc8d5cd83e6b5ecf9c742ed72c880eab81;p=p5sagit%2Fp5-mst-13.2.git

Add support for async.

p4raw-id: //depot/perl@16452
---

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index a8a340f..f76d55b 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;