From 6079e2ecba0da7a432663f8213345f60978513f5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@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
RT for rt.cpan.org