[PATCH] Upgrade to Thread::Queue 3.13 #16638
Comments
From @jdheddenThis is a bug report for perl from jdhedden@cpan.org, The attached patch upgrades 'Thread::Queue' to version 3.13. It addresses [rt.cpan.org #125868] regarding test warnings following Flags: Site configuration information for perl 5.26.2: Configured by Debian at Sat Jun 9 12:38:44 UTC 2018. Summary of my perl5 (revision 5 version 26 subversion 2) configuration: Locally applied patches: @INC for perl 5.26.2: Environment for perl 5.26.2: |
From @jdhedden0001-Upgrade-to-Thread-Queue-3.13.patchFrom 0b13711412beb7020c65872d5c2a10655f1dd3fb Mon Sep 17 00:00:00 2001
From: jdhedden <[email protected]>
Date: Tue, 17 Jul 2018 22:00:31 -0400
Subject: [PATCH] Upgrade to Thread::Queue 3.13
---
Porting/Maintainers.pl | 2 +-
dist/Thread-Queue/lib/Thread/Queue.pm | 4 ++--
dist/Thread-Queue/t/01_basic.t | 2 ++
dist/Thread-Queue/t/02_refs.t | 2 ++
dist/Thread-Queue/t/03_peek.t | 2 ++
dist/Thread-Queue/t/05_extract.t | 2 ++
dist/Thread-Queue/t/06_insert.t | 2 ++
dist/Thread-Queue/t/07_lock.t | 2 ++
dist/Thread-Queue/t/10_timed.t | 2 ++
9 files changed, 17 insertions(+), 3 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 225d97820c..c55e6f3037 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1130,7 +1130,7 @@ use File::Glob qw(:case);
# correct for this (and Thread::Semaphore, threads, and threads::shared)
# to be under dist/ rather than cpan/
'Thread::Queue' => {
- 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.12.tar.gz',
+ 'DISTRIBUTION' => 'JDHEDDEN/Thread-Queue-3.13.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 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 ###
--
2.18.0
|
|
The RT System itself - Status changed from 'new' to 'open' |
|
@jkeenan - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#133390 (status was 'resolved')
Searchable as RT133390$
The text was updated successfully, but these errors were encountered: