Change prototype of async() to be compatible with the one
Rafael Garcia-Suarez [Sun, 15 Apr 2007 07:26:28 +0000 (07:26 +0000)]
of threads::async()

p4raw-id: //depot/perl@30955

lib/Thread.pm

index 6f5b7f6..247f90c 100644 (file)
@@ -2,8 +2,9 @@ package Thread;
 
 use strict;
 use warnings;
+no warnings 'redefine';
 
-our $VERSION = '3.01';
+our $VERSION = '3.02';
 $VERSION = eval $VERSION;
 
 BEGIN {
@@ -21,7 +22,7 @@ our @ISA = qw(Exporter threads);
 our @EXPORT = qw(cond_wait cond_broadcast cond_signal);
 our @EXPORT_OK = qw(async yield);
 
-sub async (&) { return Thread->new(shift); }
+sub async (&;@) { return Thread->new(shift); }
 
 sub done { return ! shift->is_running(); }