X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FThread.pm;h=247f90ccc9ef8183e1d03c4cfec83b6060872a00;hb=af20bb8057137141992add1089555f24d545d8bb;hp=6f5b7f66fe50ec748ac206499f8405c8a21306ca;hpb=9f015efb45d5fbf8bd2c8ceb3b34b746aa8dec0e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Thread.pm b/lib/Thread.pm
index 6f5b7f6..247f90c 100644
--- a/lib/Thread.pm
+++ b/lib/Thread.pm
@@ -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(); }