re-implement OPpASSIGN_COMMON mechanism

[perl5.git] / lib / Thread.pm

diff --git a/lib/Thread.pm b/lib/Thread.pm
index 6f5b7f6..dbe0719 100644 (file)
--- 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.04';
 $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(); }
 
@@ -167,7 +168,7 @@ does a C<cond_signal> or C<cond_broadcast> for that same locked
 variable. The variable that C<cond_wait> blocked on is relocked
 after the C<cond_wait> is satisfied.  If there are multiple threads
 C<cond_wait>ing on the same variable, all but one will reblock waiting
-to reaquire the lock on the variable.  (So if you're only using
+to re-acquire the lock on the variable.  (So if you're only using
 C<cond_wait> for synchronization, give up the lock as soon as
 possible.)