Upgrade to Thread::Queue 3.13

8 files changed, 16 insertions, 2 deletions

diff --git a/dist/Thread-Queue/lib/Thread/Queue.pm b/dist/Thread-Queue/lib/Thread/Queue.pm
index c0d2180653..bcdf11db33 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.12';
+our $VERSION = '3.13';
 $VERSION = eval $VERSION;
 
 use threads::shared 1.21;
@@ -318,7 +318,7 @@ Thread::Queue - Thread-safe queues
 
 =head1 VERSION
 
-This document describes Thread::Queue version 3.12
+This document describes Thread::Queue version 3.13
 
 =head1 SYNOPSIS
 
diff --git a/dist/Thread-Queue/t/01_basic.t b/dist/Thread-Queue/t/01_basic.t
index 2983f0b700..91244dbbf0 100644
--- a/dist/Thread-Queue/t/01_basic.t
+++ b/dist/Thread-Queue/t/01_basic.t
@@ -12,12 +12,14 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 81);
 
 ### Basic usage with multiple threads ###
diff --git a/dist/Thread-Queue/t/02_refs.t b/dist/Thread-Queue/t/02_refs.t
index 0cebdc1db3..758c97e193 100644
--- a/dist/Thread-Queue/t/02_refs.t
+++ b/dist/Thread-Queue/t/02_refs.t
@@ -13,12 +13,14 @@ use threads;
 use threads::shared;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 46);
 
 # Regular array
diff --git a/dist/Thread-Queue/t/03_peek.t b/dist/Thread-Queue/t/03_peek.t
index d543b59469..7b9ca05b92 100644
--- a/dist/Thread-Queue/t/03_peek.t
+++ b/dist/Thread-Queue/t/03_peek.t
@@ -12,12 +12,14 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 19);
 
 my $q = Thread::Queue->new(1..10);
diff --git a/dist/Thread-Queue/t/05_extract.t b/dist/Thread-Queue/t/05_extract.t
index de0e78bfd0..823bd0cc94 100644
--- a/dist/Thread-Queue/t/05_extract.t
+++ b/dist/Thread-Queue/t/05_extract.t
@@ -12,12 +12,14 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 20);
 
 my $q = Thread::Queue->new(1..10);
diff --git a/dist/Thread-Queue/t/06_insert.t b/dist/Thread-Queue/t/06_insert.t
index 4f9d1dff5e..64dc4e3764 100644
--- a/dist/Thread-Queue/t/06_insert.t
+++ b/dist/Thread-Queue/t/06_insert.t
@@ -12,12 +12,14 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 16);
 
 my $q = Thread::Queue->new(1..10);
diff --git a/dist/Thread-Queue/t/07_lock.t b/dist/Thread-Queue/t/07_lock.t
index b20e0604ca..66c4550503 100644
--- a/dist/Thread-Queue/t/07_lock.t
+++ b/dist/Thread-Queue/t/07_lock.t
@@ -13,12 +13,14 @@ use threads;
 use Thread::Queue;
 use Thread::Semaphore;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 3);
 
 # The following tests locking a queue
diff --git a/dist/Thread-Queue/t/10_timed.t b/dist/Thread-Queue/t/10_timed.t
index 8404720ed6..896954c6fd 100644
--- a/dist/Thread-Queue/t/10_timed.t
+++ b/dist/Thread-Queue/t/10_timed.t
@@ -12,12 +12,14 @@ BEGIN {
 use threads;
 use Thread::Queue;
 
+BEGIN { # perl RT 133382
 if ($] == 5.008) {
     require 't/test.pl';   # Test::More work-alike for Perl 5.8.0
 } else {
     require Test::More;
 }
 Test::More->import();
+} # end BEGIN
 plan('tests' => 19);
 
 ### ->dequeue_timed(TIMEOUT, COUNT) test ###