Thread::Queue 2.09
authorJerry D. Hedden <jdhedden@cpan.org>
Fri, 30 May 2008 12:41:41 +0000 (08:41 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 1 Jun 2008 10:44:18 +0000 (10:44 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510805300941o68c1967bw31dee3e40ffa28a7@mail.gmail.com>

Explicitly check for undef in args because some versions of
looks_like_number(undef) return true.

p4raw-id: //depot/perl@33974

lib/Thread/Queue.pm

index abf33ae..686d62f 100644 (file)
@@ -3,7 +3,7 @@ package Thread::Queue;
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-our $VERSION = '2.08';
+our $VERSION = '2.09';
 
 use threads::shared 1.21;
 use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr);
 
 use threads::shared 1.21;
 use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr);
@@ -168,7 +168,10 @@ sub extract
 $validate_index = sub {
     my $index = shift;
 
 $validate_index = sub {
     my $index = shift;
 
-    if (! looks_like_number($index) || (int($index) != $index)) {
+    if (! defined($index) ||
+        ! looks_like_number($index) ||
+        (int($index) != $index))
+    {
         require Carp;
         my ($method) = (caller(1))[3];
         $method =~ s/Thread::Queue:://;
         require Carp;
         my ($method) = (caller(1))[3];
         $method =~ s/Thread::Queue:://;
@@ -183,7 +186,11 @@ $validate_index = sub {
 $validate_count = sub {
     my $count = shift;
 
 $validate_count = sub {
     my $count = shift;
 
-    if ((! looks_like_number($count)) || (int($count) != $count) || ($count < 1)) {
+    if (! defined($count) ||
+        ! looks_like_number($count) ||
+        (int($count) != $count) ||
+        ($count < 1))
+    {
         require Carp;
         my ($method) = (caller(1))[3];
         $method =~ s/Thread::Queue:://;
         require Carp;
         my ($method) = (caller(1))[3];
         $method =~ s/Thread::Queue:://;
@@ -202,7 +209,7 @@ Thread::Queue - Thread-safe queues
 
 =head1 VERSION
 
 
 =head1 VERSION
 
-This document describes Thread::Queue version 2.08
+This document describes Thread::Queue version 2.09
 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 
@@ -455,7 +462,7 @@ Thread::Queue Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/Thread-Queue>
 
 Annotated POD for Thread::Queue:
 L<http://www.cpanforum.com/dist/Thread-Queue>
 
 Annotated POD for Thread::Queue:
-L<http://annocpan.org/~JDHEDDEN/Thread-Queue-2.08/lib/Thread/Queue.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Queue-2.09/lib/Thread/Queue.pm>
 
 Source repository:
 L<http://code.google.com/p/thread-queue/>
 
 Source repository:
 L<http://code.google.com/p/thread-queue/>