[perl-CGI-Application-Plugin-ViewCode] Perl 5.18 compatibility

[Petr Pisar]

commit 334e5ccef13f83e8a71a39e7d283c20e574d6123
Author: Petr Písař <ppisar at redhat.com>
Date:   Tue Jul 23 09:25:57 2013 +0200

    Perl 5.18 compatibility

 ...2-qw-does-not-produce-parentheses-anymore.patch |   31 ++++++++++++++++++++
 perl-CGI-Application-Plugin-ViewCode.spec          |    4 ++
 2 files changed, 35 insertions(+), 0 deletions(-)
---
diff --git a/CGI-Application-Plugin-ViewCode-1.02-qw-does-not-produce-parentheses-anymore.patch b/CGI-Application-Plugin-ViewCode-1.02-qw-does-not-produce-parentheses-anymore.patch
new file mode 100644
index 0000000..e59b382
--- /dev/null
+++ b/CGI-Application-Plugin-ViewCode-1.02-qw-does-not-produce-parentheses-anymore.patch
@@ -0,0 +1,31 @@
+From fcb9896094b4cc4b35789a2c25b8a5554c9ba20e Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Tue, 23 Jul 2013 09:12:11 +0200
+Subject: [PATCH] qw does not produce parentheses anymore
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=73317>
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ lib/CGI/Application/Plugin/ViewCode.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/lib/CGI/Application/Plugin/ViewCode.pm b/lib/CGI/Application/Plugin/ViewCode.pm
+index 4bc8c04..adc4075 100644
+--- a/lib/CGI/Application/Plugin/ViewCode.pm
++++ b/lib/CGI/Application/Plugin/ViewCode.pm
+@@ -176,7 +176,7 @@ sub _view_code {
+     my $query = $self->query;
+ 
+     my %options;
+-    foreach my $opt qw(highlight line_no pod) {
++    foreach my $opt (qw(highlight line_no pod)) {
+         if( defined $query->param($opt) ) {
+             $options{$opt} = $query->param($opt);
+         } else {
+-- 
+1.8.1.4
+
diff --git a/perl-CGI-Application-Plugin-ViewCode.spec b/perl-CGI-Application-Plugin-ViewCode.spec
index 88f9d1e..926cbfc 100644
--- a/perl-CGI-Application-Plugin-ViewCode.spec
+++ b/perl-CGI-Application-Plugin-ViewCode.spec
@@ -6,6 +6,8 @@ License:        GPL+ or Artistic
 
 URL:            http://search.cpan.org/dist/CGI-Application-Plugin-ViewCode/
 Source0:        http://www.cpan.org/authors/id/W/WO/WONKO/CGI-Application-Plugin-ViewCode-%{version}.tar.gz
+# Perl 5.18 compatibility, CPAN RT#73317
+Patch0:         CGI-Application-Plugin-ViewCode-1.02-qw-does-not-produce-parentheses-anymore.patch
 
 BuildArch:      noarch
 BuildRequires:  perl(CGI)
@@ -28,6 +30,7 @@ would like to view.
 
 %prep
 %setup -q -n CGI-Application-Plugin-ViewCode-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Build.PL installdirs=vendor
@@ -50,6 +53,7 @@ find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
 %changelog
 * Tue Jul 23 2013 Petr Pisar <ppisar at redhat.com> - 1.02-14
 - Perl 5.18 rebuild
+- Perl 5.18 compatibility (CPAN RT#73317)
 
 * Thu Feb 14 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 1.02-13
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild