[perl-CGI-Session/f17] Fix deprecated use of qw//

[Petr Pisar]

commit 2bbdc9e535c1fa8cfa0abc7893eeaec478e4ca8e
Author: Petr Písař <ppisar at redhat.com>
Date:   Tue Aug 21 17:08:46 2012 +0200

    Fix deprecated use of qw//

 CGI-Session-4.35-qw.patch |   41 +++++++++++++++++++++++++++++++++++++++++
 perl-CGI-Session.spec     |    6 +++++-
 2 files changed, 46 insertions(+), 1 deletions(-)
---
diff --git a/CGI-Session-4.35-qw.patch b/CGI-Session-4.35-qw.patch
new file mode 100644
index 0000000..52bca85
--- /dev/null
+++ b/CGI-Session-4.35-qw.patch
@@ -0,0 +1,41 @@
+From 6079e2ecba0da7a432663f8213345f60978513f5 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Tue, 21 Aug 2012 17:04:58 +0200
+Subject: [PATCH] Fix deprecated use of qw//
+
+<https://bugzilla.redhat.com/show_bug.cgi?id=754689>
+<https://rt.cpan.org/Public/Bug/Display.html?id=69048>
+---
+ lib/CGI/Session.pm | 2 +-
+ t/ip_matches.t     | 2 +-
+ 2 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/lib/CGI/Session.pm b/lib/CGI/Session.pm
+index 67eaf39..92c0c4d 100644
+--- a/lib/CGI/Session.pm
++++ b/lib/CGI/Session.pm
+@@ -879,7 +879,7 @@ sub _load_pluggables {
+                        id         => "ID",
+                        );
+     my $dsn = $self->{_DSN};
+-    foreach my $plug qw(driver serializer id) {
++    foreach my $plug (qw(driver serializer id)) {
+         my $mod_name = $dsn->{ $plug };
+         if (not defined $mod_name) {
+             $mod_name = $DEFAULT_FOR{ $plug };
+diff --git a/t/ip_matches.t b/t/ip_matches.t
+index 1137d4a..8db31e9 100644
+--- a/t/ip_matches.t
++++ b/t/ip_matches.t
+@@ -36,7 +36,7 @@ is($session->param('TEST'),'VALUE','TEST param still set');
+ 
+ $session->flush;
+ # Testing with ip_match set.
+-CGI::Session->import qw/-ip_match/;
++CGI::Session->import (qw/-ip_match/);
+ 
+ is($CGI::Session::IP_MATCH,1,'ip_match switched on');
+ 
+-- 
+1.7.11.4
+
diff --git a/perl-CGI-Session.spec b/perl-CGI-Session.spec
index 3faad0c..e093bd9 100644
--- a/perl-CGI-Session.spec
+++ b/perl-CGI-Session.spec
@@ -6,6 +6,8 @@ License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/CGI-Session/
 Source0:        http://www.cpan.org/modules/by-module/CGI/CGI-Session-%{version}.tar.gz
+# Fix deprecated use of qw//, RHBZ #754689, CPAN RT #69048
+Patch0:         CGI-Session-4.35-qw.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -39,6 +41,7 @@ CGI::Session does that and many more.
 
 %prep
 %setup -q -n CGI-Session-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -68,8 +71,9 @@ rm -rf %{buildroot}
 %{_mandir}/man3/*
 
 %changelog
-* Mon Jun 11 2012 Petr Pisar <ppisar at redhat.com> - 4.35-12
+* Tue Aug 21 2012 Petr Pisar <ppisar at redhat.com> - 4.35-12
 - Specify all dependencies
+- Fix deprecated use of qw// (bug #754689)
 
 * Tue Jan 17 2012 Ralf Corsépius <corsepiu at fedoraproject.org> - 4.35-11
 - Add BR: perl(Digest::MD5) (Fix mass rebuild FTBS).