[perl-Net-Amazon-S3/f19] Put qw() list into array explictly

[Petr Pisar]

commit 7717fb1bdc15cd7c6d7f0b50b1fa450dfa5d6bf5
Author: Petr Písař <ppisar at redhat.com>
Date:   Fri Jul 18 15:14:52 2014 +0200

    Put qw() list into array explictly

 ...vid-Wheeler-to-eliminate-a-naked-qw-warni.patch |   29 ++++++++++++++++++++
 perl-Net-Amazon-S3.spec                            |    8 +++++-
 2 files changed, 36 insertions(+), 1 deletions(-)
---
diff --git a/perl-Net-Amazon-S3-0.53-Patch-by-David-Wheeler-to-eliminate-a-naked-qw-warni.patch b/perl-Net-Amazon-S3-0.53-Patch-by-David-Wheeler-to-eliminate-a-naked-qw-warni.patch
new file mode 100644
index 0000000..b34ab3b
--- /dev/null
+++ b/perl-Net-Amazon-S3-0.53-Patch-by-David-Wheeler-to-eliminate-a-naked-qw-warni.patch
@@ -0,0 +1,29 @@
+From fe22ac0818cd66cc7d9b542dfa2a019a7c73f3c8 Mon Sep 17 00:00:00 2001
+From: Pedro Figueiredo <me at pedrofigueiredo.org>
+Date: Sat, 21 May 2011 21:22:25 +0100
+Subject: [PATCH] Patch by David Wheeler to eliminate a naked qw() warning
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ lib/Net/Amazon/S3/Request/ListBucket.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/lib/Net/Amazon/S3/Request/ListBucket.pm b/lib/Net/Amazon/S3/Request/ListBucket.pm
+index a2c5479..afae78d 100644
+--- a/lib/Net/Amazon/S3/Request/ListBucket.pm
++++ b/lib/Net/Amazon/S3/Request/ListBucket.pm
+@@ -19,7 +19,7 @@ sub http_request {
+     my $path = $self->bucket . "/";
+ 
+     my @post;
+-    foreach my $method qw(prefix delimiter max_keys marker) {
++    foreach my $method ( qw(prefix delimiter max_keys marker) ) {
+         my $value = $self->$method;
+         next unless $value;
+         my $key = $method;
+-- 
+1.9.3
+
diff --git a/perl-Net-Amazon-S3.spec b/perl-Net-Amazon-S3.spec
index 46ca188..2d32a4d 100644
--- a/perl-Net-Amazon-S3.spec
+++ b/perl-Net-Amazon-S3.spec
@@ -1,11 +1,13 @@
 Summary: Use the Amazon Simple Storage Service (S3)
 Name: perl-Net-Amazon-S3
 Version: 0.53
-Release: 7%{?dist}
+Release: 8%{?dist}
 License: GPL+ or Artistic
 Group: Development/Libraries
 URL: http://search.cpan.org/dist/Net-Amazon-S3/
 Source0: http://search.cpan.org/CPAN/authors/id/L/LB/LBROCARD/Net-Amazon-S3-%{version}.tar.gz
+# Put qw() list into array explictly, bug #890721, in upstream 0.54
+Patch0: perl-Net-Amazon-S3-0.53-Patch-by-David-Wheeler-to-eliminate-a-naked-qw-warni.patch
 BuildRoot: %(mktemp -ud %{_tmppath}/%{name}-%{version}-%{release}-XXXXXX)
 
 BuildArch: noarch
@@ -61,6 +63,7 @@ To find out more about S3, please visit: http://s3.amazonaws.com/
 
 %prep
 %setup -q -n Net-Amazon-S3-%{version}
+%patch0 -p1
 # Remove faulty documentation test, bug #914301, in upstream 0.57.
 rm t/99-pod-coverage.t
 sed -i -e '/^t\/99-pod-coverage.t/d' MANIFEST
@@ -134,6 +137,9 @@ rm -rf %{buildroot}
 %{_mandir}/man3/Net::Amazon::S3::Request::SetObjectAccessControl.3pm.gz
 
 %changelog
+* Fri Jul 18 2014 Petr Pisar <ppisar at redhat.com> - 0.53-8
+- Put qw() list into array explictly (bug #890721)
+
 * Fri Jul 18 2014 Petr Pisar <ppisar at redhat.com> - 0.53-7
 - Remove faulty documentation test (bug #914301)
 - Specify all build-time dependencies