diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-15 07:26:28 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-15 07:26:28 +0000 |
| commit | 014e6b2c05ca98503e6570a1cbbf162d34569aa0 (patch) | |
| tree | 0e6ba426154dce77ca51cb13afc04ebc29c01399 /lib/Thread.pm | |
| parent | 9f015efb45d5fbf8bd2c8ceb3b34b746aa8dec0e (diff) | |
| download | perl-014e6b2c05ca98503e6570a1cbbf162d34569aa0.tar.gz | |
Change prototype of async() to be compatible with the one
of threads::async()
p4raw-id: //depot/perl@30955
Diffstat (limited to 'lib/Thread.pm')
| -rw-r--r-- | lib/Thread.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Thread.pm b/lib/Thread.pm index 6f5b7f66fe..247f90ccc9 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(); } |