commit 2bbdc9e535c1fa8cfa0abc7893eeaec478e4ca8e
Author: Petr Písař <ppisar@xxxxxxxxxx>
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@xxxxxxxxxx>
+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@xxxxxxxxxx> - 4.35-12
+* Tue Aug 21 2012 Petr Pisar <ppisar@xxxxxxxxxx> - 4.35-12
- Specify all dependencies
+- Fix deprecated use of qw// (bug #754689)
* Tue Jan 17 2012 Ralf Corsépius <corsepiu@xxxxxxxxxxxxxxxxx> - 4.35-11
- Add BR: perl(Digest::MD5) (Fix mass rebuild FTBS).
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
