Fix uninitialized-value warnings in Thread::Queue

This involves a version bump, to 3.05.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index e6520b3..906ac90 100755 (executable)
--- 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 (file)
--- 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