From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 15 Apr 2007 07:26:28 +0000 (+0000)
Subject: Change prototype of async() to be compatible with the one
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=014e6b2c05ca98503e6570a1cbbf162d34569aa0;p=p5sagit%2Fp5-mst-13.2.git

Change prototype of async() to be compatible with the one
of threads::async()

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

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(); }