X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fthreads.pm;h=dcd2aa015c9a65619b9fa687f4feb3ff04fdde7c;hb=8043fdafce9b64db18484779a548e4f4adefc5ed;hp=e3c75c1a7232c005fe929d554da8ad40fc8be011;hpb=abec23e71b5d54dc73752d78864a1da13b1510e0;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm index e3c75c1..dcd2aa0 100755 --- a/ext/threads/threads.pm +++ b/ext/threads/threads.pm @@ -50,13 +50,14 @@ our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( async ); -our $VERSION = '1.00'; +our $VERSION = '1.05'; # || 0 to ensure compatibility with previous versions sub equal { ($_[0]->tid == $_[1]->tid) || 0 } -# use "goto" trick to avoid pad problems from 5.8.1, should also be faster +# use "goto" trick to avoid pad problems from 5.8.1 (fixed in 5.8.2) +# should also be faster sub async (&;@) { unshift @_,'threads'; goto &new } sub object { @@ -138,7 +139,8 @@ it the other way around. This will create a new thread with the entry point function and give it LIST as parameters. It will return the corresponding threads -object. The new() method is an alias for create(). +object, or C if thread creation failed. The new() method is an +alias for create(). =item $thread->join @@ -268,7 +270,7 @@ signal handling is not threadsafe. =head1 AUTHOR and COPYRIGHT -Arthur Bergman Earthur at contiller.seE +Arthur Bergman Esky at nanisky.comE threads is released under the same license as Perl.