diff options
| author | Jerry Hedden <jdhedden@yahoo.com> | 2006-10-10 22:57:43 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-12 14:26:37 +0000 |
| commit | de42e62afe2397fdb786826843b9d1c39044c4b5 (patch) | |
| tree | a2ff521f5b402a3f2b19c0a35716dc8eb0f7709b /ext | |
| parent | acff02b8767928cdbc04968102e70f115f9458f0 (diff) | |
| download | perl-de42e62afe2397fdb786826843b9d1c39044c4b5.tar.gz | |
threads 1.44
Message-ID: <20061011125743.68567.qmail@web30211.mail.mud.yahoo.com>
p4raw-id: //depot/perl@29002
Diffstat (limited to 'ext')
| -rwxr-xr-x | ext/threads/Changes | 4 | ||||
| -rwxr-xr-x | ext/threads/README | 2 | ||||
| -rw-r--r-- | ext/threads/t/thread.t | 2 | ||||
| -rwxr-xr-x | ext/threads/threads.pm | 11 |
4 files changed, 12 insertions, 7 deletions
diff --git a/ext/threads/Changes b/ext/threads/Changes index 332a3cba4a..8f5dd4655b 100755 --- a/ext/threads/Changes +++ b/ext/threads/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension threads. +1.44 Wed Oct 11 08:55:50 EDT 2006 + - Complain about bad import options + - Added example threads script + 1.43 Fri Oct 6 15:12:07 EDT 2006 - Stringify threads objects - Removed 'typemap' file diff --git a/ext/threads/README b/ext/threads/README index 89ee954198..20f4bbdb7c 100755 --- a/ext/threads/README +++ b/ext/threads/README @@ -1,4 +1,4 @@ -threads version 1.43 +threads version 1.44 ==================== This module exposes interpreter threads to the Perl level. diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t index 710685d038..22cff081b6 100644 --- a/ext/threads/t/thread.t +++ b/ext/threads/t/thread.t @@ -171,7 +171,7 @@ package main; # bugid #24165 -run_perl(prog => 'use threads 1.43;' . +run_perl(prog => 'use threads 1.44;' . 'sub a{threads->create(shift)} $t = a sub{};' . '$t->tid; $t->join; $t->tid', nolib => ($ENV{PERL_CORE}) ? 0 : 1, diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm index f7211b5f3e..435601ef74 100755 --- a/ext/threads/threads.pm +++ b/ext/threads/threads.pm @@ -5,7 +5,7 @@ use 5.008; use strict; use warnings; -our $VERSION = '1.43'; +our $VERSION = '1.44'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -57,11 +57,12 @@ sub import } elsif ($sym =~ /^str/i) { import overload ('""' => \&tid); - } elsif ($sym =~ /all/) { + } elsif ($sym =~ /(?:all|yield)/) { push(@EXPORT, qw(yield)); } else { - push(@EXPORT, $sym); + require Carp; + Carp::croak("threads: Unknown import option: $sym"); } } @@ -132,7 +133,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 1.43 +This document describes threads version 1.44 =head1 SYNOPSIS @@ -904,7 +905,7 @@ L<threads> Discussion Forum on CPAN: L<http://www.cpanforum.com/dist/threads> Annotated POD for L<threads>: -L<http://annocpan.org/~JDHEDDEN/threads-1.43/threads.pm> +L<http://annocpan.org/~JDHEDDEN/threads-1.44/threads.pm> L<threads::shared>, L<perlthrtut> |