From: Rafael Garcia-Suarez 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(); }