From 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Thu, 28 Oct 2010 17:20:46 +0200
Subject: Bug 607966: Use of qw(...) as parentheses is deprecated since Perl
 5.13.5 r=gerv a=LpSolit

---
 editflagtypes.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'editflagtypes.cgi')

diff --git a/editflagtypes.cgi b/editflagtypes.cgi
index 3e3f94f2e..ecfa32ca8 100755
--- a/editflagtypes.cgi
+++ b/editflagtypes.cgi
@@ -112,7 +112,7 @@ if (my ($category_action) = grep { $_ =~ /^categoryAction-(?:\w+)$/ } $cgi->para
     my $type = {};
     $type->{$_} = $cgi->param($_) foreach $cgi->param();
     # Make sure boolean fields are defined, else they fall back to 1.
-    foreach my $boolean qw(is_active is_requestable is_requesteeble is_multiplicable) {
+    foreach my $boolean (qw(is_active is_requestable is_requesteeble is_multiplicable)) {
         $type->{$boolean} ||= 0;
     }
 
-- 
cgit v1.2.3-24-g4f1b