Attachment 605963 Details for Bug 754689 – Fix

[patch] Fix

CGI-Session-4.35-qw.patch (text/plain), 1.30 KB, created by Petr Pisar on 2012-08-21 15:10:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2012-08-21 15:10:00 UTC

Size: 1.30 KB

patch

obsolete

>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
>

Actions: View | Diff

Attachments on bug 754689: 605963