In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/af25b78b14291f94948a0adeeb1174dac6030f4a?hp=8842e230bdaeef0ab4af48b7d7a9b29ee40b3890>
- Log ----------------------------------------------------------------- commit af25b78b14291f94948a0adeeb1174dac6030f4a Author: Jerry D. Hedden <[email protected]> Date: Tue Mar 11 15:31:24 2014 -0400 Upgrade to Thread::Queue 3.04 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- dist/Thread-Queue/lib/Thread/Queue.pm | 13 ++++++++----- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 7739611..5ab285e 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1167,7 +1167,7 @@ use File::Glob qw(:case); }, 'Thread::Queue' => { - 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.03.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.04.tar.gz', 'FILES' => q[dist/Thread-Queue], 'EXCLUDED' => [ qr{^examples/}, diff --git a/dist/Thread-Queue/lib/Thread/Queue.pm b/dist/Thread-Queue/lib/Thread/Queue.pm index 92c90cd..08210ca 100644 --- a/dist/Thread-Queue/lib/Thread/Queue.pm +++ b/dist/Thread-Queue/lib/Thread/Queue.pm @@ -3,7 +3,7 @@ package Thread::Queue; use strict; use warnings; -our $VERSION = '3.03'; +our $VERSION = '3.04'; $VERSION = eval $VERSION; use threads::shared 1.21; @@ -230,7 +230,8 @@ sub _validate_index { require Carp; my ($method) = (caller(1))[3]; - $method =~ s/Thread::Queue:://; + my $class_name = ref($self); + $method =~ s/$class_name:://; $index = 'undef' if (! defined($index)); Carp::croak("Invalid 'index' argument ($index) to '$method' method"); } @@ -251,7 +252,8 @@ sub _validate_count { require Carp; my ($method) = (caller(1))[3]; - $method =~ s/Thread::Queue:://; + my $class_name = ref($self); + $method =~ s/$class_name:://; $count = 'undef' if (! defined($count)); Carp::croak("Invalid 'count' argument ($count) to '$method' method"); } @@ -270,7 +272,8 @@ sub _validate_timeout { require Carp; my ($method) = (caller(1))[3]; - $method =~ s/Thread::Queue:://; + my $class_name = ref($self); + $method =~ s/$class_name:://; $timeout = 'undef' if (! defined($timeout)); Carp::croak("Invalid 'timeout' argument ($timeout) to '$method' method"); } @@ -286,7 +289,7 @@ Thread::Queue - Thread-safe queues =head1 VERSION -This document describes Thread::Queue version 3.03 +This document describes Thread::Queue version 3.04 =head1 SYNOPSIS -- Perl5 Master Repository
