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

---
 Bugzilla/Bug.pm            | 2 +-
 Bugzilla/CGI.pm            | 4 +---
 Bugzilla/Search.pm         | 2 +-
 Bugzilla/WebService/Bug.pm | 2 +-
 4 files changed, 4 insertions(+), 6 deletions(-)

(limited to 'Bugzilla')

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index abc00c298..d3f0023b8 100644
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -1481,7 +1481,7 @@ sub _check_dependencies {
 
     my %deps_in = (dependson => $depends_on || '', blocked => $blocks || '');
 
-    foreach my $type qw(dependson blocked) {
+    foreach my $type (qw(dependson blocked)) {
         my @bug_ids = ref($deps_in{$type}) 
             ? @{$deps_in{$type}} 
             : split(/[\s,]+/, $deps_in{$type});
diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index 054ba96a0..a9b938c6d 100644
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -159,9 +159,7 @@ sub clean_search_url {
     foreach my $num (1,2,3) {
         # If there's no value in the email field, delete the related fields.
         if (!$self->param("email$num")) {
-            foreach my $field qw(type assigned_to reporter qa_contact
-                                 cc longdesc) 
-            {
+            foreach my $field (qw(type assigned_to reporter qa_contact cc longdesc)) {
                 $self->delete("email$field$num");
             }
         }
diff --git a/Bugzilla/Search.pm b/Bugzilla/Search.pm
index bcbe3a2a5..d81e26c16 100644
--- a/Bugzilla/Search.pm
+++ b/Bugzilla/Search.pm
@@ -1393,7 +1393,7 @@ sub _special_parse_email {
         $type = "anyexact" if $type eq "exact";
 
         my @or_charts;
-        foreach my $field qw(assigned_to reporter cc qa_contact) {
+        foreach my $field (qw(assigned_to reporter cc qa_contact)) {
             if ($params->{"email$field$id"}) {
                 push(@or_charts, $field, $type, $email);
             }
diff --git a/Bugzilla/WebService/Bug.pm b/Bugzilla/WebService/Bug.pm
index a36eed957..afd235404 100644
--- a/Bugzilla/WebService/Bug.pm
+++ b/Bugzilla/WebService/Bug.pm
@@ -931,7 +931,7 @@ sub _attachment_to_hash {
 
     # creator/attacher require an extra lookup, so we only send them if
     # the filter wants them.
-    foreach my $field qw(creator attacher) {
+    foreach my $field (qw(creator attacher)) {
         if (filter_wants $filters, $field) {
             $item->{$field} = $self->type('string', $attach->attacher->login);
         }
-- 
cgit v1.2.3-24-g4f1b