|
 |
a01c53 |
From 6079e2ecba0da7a432663f8213345f60978513f5 Mon Sep 17 00:00:00 2001
|
|
|
a01c53 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
a01c53 |
Date: Tue, 21 Aug 2012 17:04:58 +0200
|
|
|
a01c53 |
Subject: [PATCH] Fix deprecated use of qw//
|
|
|
a01c53 |
|
|
|
a01c53 |
<https://bugzilla.redhat.com/show_bug.cgi?id=754689>
|
|
|
a01c53 |
<https://rt.cpan.org/Public/Bug/Display.html?id=69048>
|
|
|
a01c53 |
---
|
|
|
a01c53 |
lib/CGI/Session.pm | 2 +-
|
|
|
a01c53 |
t/ip_matches.t | 2 +-
|
|
|
a01c53 |
2 files changed, 2 insertions(+), 2 deletions(-)
|
|
|
a01c53 |
|
|
|
a01c53 |
diff --git a/lib/CGI/Session.pm b/lib/CGI/Session.pm
|
|
|
a01c53 |
index 67eaf39..92c0c4d 100644
|
|
|
a01c53 |
--- a/lib/CGI/Session.pm
|
|
|
a01c53 |
+++ b/lib/CGI/Session.pm
|
|
|
a01c53 |
@@ -879,7 +879,7 @@ sub _load_pluggables {
|
|
|
a01c53 |
id => "ID",
|
|
|
a01c53 |
);
|
|
|
a01c53 |
my $dsn = $self->{_DSN};
|
|
|
a01c53 |
- foreach my $plug qw(driver serializer id) {
|
|
|
a01c53 |
+ foreach my $plug (qw(driver serializer id)) {
|
|
|
a01c53 |
my $mod_name = $dsn->{ $plug };
|
|
|
a01c53 |
if (not defined $mod_name) {
|
|
|
a01c53 |
$mod_name = $DEFAULT_FOR{ $plug };
|
|
|
a01c53 |
diff --git a/t/ip_matches.t b/t/ip_matches.t
|
|
|
a01c53 |
index 1137d4a..8db31e9 100644
|
|
|
a01c53 |
--- a/t/ip_matches.t
|
|
|
a01c53 |
+++ b/t/ip_matches.t
|
|
|
a01c53 |
@@ -36,7 +36,7 @@ is($session->param('TEST'),'VALUE','TEST param still set');
|
|
|
a01c53 |
|
|
|
a01c53 |
$session->flush;
|
|
|
a01c53 |
# Testing with ip_match set.
|
|
|
a01c53 |
-CGI::Session->import qw/-ip_match/;
|
|
|
a01c53 |
+CGI::Session->import (qw/-ip_match/);
|
|
|
a01c53 |
|
|
|
a01c53 |
is($CGI::Session::IP_MATCH,1,'ip_match switched on');
|
|
|
a01c53 |
|
|
|
a01c53 |
--
|
|
|
a01c53 |
1.7.11.4
|
|
|
a01c53 |
|