From 37b6cf1dc38f2ca253844ac1e7fccaaa97f19a3d Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@redhat.com>
Date: Mon, 22 Jun 2020 11:13:55 +0200
Subject: [PATCH] Upgrade to 3.14 as provided in perl-5.32.0

---
 Thread-Queue-3.13-Upgrade-to-3.14.patch | 43 +++++++++++++++++++++++++
 perl-Thread-Queue.spec                  | 15 ++++++---
 2 files changed, 54 insertions(+), 4 deletions(-)
 create mode 100644 Thread-Queue-3.13-Upgrade-to-3.14.patch

diff --git a/Thread-Queue-3.13-Upgrade-to-3.14.patch b/Thread-Queue-3.13-Upgrade-to-3.14.patch
new file mode 100644
index 0000000..26298bf
--- /dev/null
+++ b/Thread-Queue-3.13-Upgrade-to-3.14.patch
@@ -0,0 +1,43 @@
+From 76f1ac50f4affebf08c1ba71ee1dc31cd2a6a950 Mon Sep 17 00:00:00 2001
+From: Jitka Plesnikova <jplesnik@redhat.com>
+Date: Mon, 1 Jun 2020 13:48:33 +0200
+Subject: [PATCH] Upgrade to 3.14
+
+---
+ lib/Thread/Queue.pm | 6 +++---
+ 1 file changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/lib/Thread/Queue.pm b/lib/Thread/Queue.pm
+index bcdf11d..731d0b2 100644
+--- a/lib/Thread/Queue.pm
++++ b/lib/Thread/Queue.pm
+@@ -3,7 +3,7 @@ package Thread::Queue;
+ use strict;
+ use warnings;
+ 
+-our $VERSION = '3.13';
++our $VERSION = '3.14';          # remember to update version in POD!
+ $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.13
++This document describes Thread::Queue version 3.14
+ 
+ =head1 SYNOPSIS
+ 
+@@ -547,7 +547,7 @@ VARIABLE"> the queue inside a local block:
+ =item ->peek(INDEX)
+ 
+ Returns an item from the queue without dequeuing anything.  Defaults to the
+-the head of queue (at index position 0) if no index is specified.  Negative
++head of queue (at index position 0) if no index is specified.  Negative
+ index values are supported as with L<arrays|perldata/"Subscripts"> (i.e., -1
+ is the end of the queue, -2 is next to last, and so on).
+ 
+-- 
+2.25.4
+
diff --git a/perl-Thread-Queue.spec b/perl-Thread-Queue.spec
index 2c2aaea..1d0bd89 100644
--- a/perl-Thread-Queue.spec
+++ b/perl-Thread-Queue.spec
@@ -1,10 +1,13 @@
+%global base_version 3.13
 Name:           perl-Thread-Queue
-Version:        3.13
-Release:        440%{?dist}
+Version:        3.14
+Release:        456%{?dist}
 Summary:        Thread-safe queues
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/Thread-Queue
-Source0:        https://cpan.metacpan.org/authors/id/J/JD/JDHEDDEN/Thread-Queue-%{version}.tar.gz
+Source0:        https://cpan.metacpan.org/authors/id/J/JD/JDHEDDEN/Thread-Queue-%{base_version}.tar.gz
+# Unbundled from perl 5.32.0
+Patch0:         Thread-Queue-3.13-Upgrade-to-3.14.patch
 BuildArch:      noarch
 BuildRequires:  make
 BuildRequires:  perl-generators
@@ -33,7 +36,8 @@ This module provides thread-safe FIFO queues that can be accessed safely by
 any number of threads.
 
 %prep
-%setup -q -n Thread-Queue-%{version}
+%setup -q -n Thread-Queue-%{base_version}
+%patch0 -p1
 # Correct shell bang
 sed -i -e '1 s|^#!/usr/bin/env perl|%(perl -MConfig -e 'print $Config{startperl}')|' examples/queue.pl
 
@@ -54,6 +58,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Mon Jun 22 2020 Jitka Plesnikova <jplesnik@redhat.com> - 3.14-456
+- Upgrade to 3.14 as provided in perl-5.32.0
+
 * Thu Jan 30 2020 Fedora Release Engineering <releng@fedoraproject.org> - 3.13-440
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild