From 4e75700d82cf54133ceb54bd6ea7b4e136b99beb Mon Sep 17 00:00:00 2001 From: Aaron Crane Date: Tue, 18 Mar 2014 17:17:54 +0000 Subject: Fix uninitialized-value warnings in Thread::Queue This involves a version bump, to 3.05. --- dist/Thread-Queue/lib/Thread/Queue.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'dist/Thread-Queue') diff --git a/dist/Thread-Queue/lib/Thread/Queue.pm b/dist/Thread-Queue/lib/Thread/Queue.pm index 08210caf9c..316644a64f 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 -- cgit v1.2.1