In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4e75700d82cf54133ceb54bd6ea7b4e136b99beb?hp=7d18793f050900d85e6cdbba5505b99cea51fe26>
- Log ----------------------------------------------------------------- commit 4e75700d82cf54133ceb54bd6ea7b4e136b99beb Author: Aaron Crane <[email protected]> Date: Tue Mar 18 17:17:54 2014 +0000 Fix uninitialized-value warnings in Thread::Queue This involves a version bump, to 3.05. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 6 +++++- dist/Thread-Queue/lib/Thread/Queue.pm | 10 +++++----- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index e6520b3..906ac90 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1166,8 +1166,12 @@ use File::Glob qw(:case); }, }, + # Jerry Hedden does take patches that are applied to blead first, even + # though that can be hard to discern from the Git history; so it's + # correct for this (and Thread::Semaphore, threads, and threads::shared) + # to be under dist/ rather than cpan/ 'Thread::Queue' => { - 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.04.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.05.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 08210ca..316644a 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.04'; +our $VERSION = '3.05'; $VERSION = eval $VERSION; use threads::shared 1.21; @@ -231,7 +231,7 @@ sub _validate_index require Carp; my ($method) = (caller(1))[3]; my $class_name = ref($self); - $method =~ s/$class_name:://; + $method =~ s/$class_name\:://; $index = 'undef' if (! defined($index)); Carp::croak("Invalid 'index' argument ($index) to '$method' method"); } @@ -253,7 +253,7 @@ sub _validate_count require Carp; my ($method) = (caller(1))[3]; my $class_name = ref($self); - $method =~ s/$class_name:://; + $method =~ s/$class_name\:://; $count = 'undef' if (! defined($count)); Carp::croak("Invalid 'count' argument ($count) to '$method' method"); } @@ -273,7 +273,7 @@ sub _validate_timeout require Carp; my ($method) = (caller(1))[3]; my $class_name = ref($self); - $method =~ s/$class_name:://; + $method =~ s/$class_name\:://; $timeout = 'undef' if (! defined($timeout)); Carp::croak("Invalid 'timeout' argument ($timeout) to '$method' method"); } @@ -289,7 +289,7 @@ Thread::Queue - Thread-safe queues =head1 VERSION -This document describes Thread::Queue version 3.04 +This document describes Thread::Queue version 3.05 =head1 SYNOPSIS -- Perl5 Master Repository
