From 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 Mon Sep 17 00:00:00 2001 From: Frédéric Buclin 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/Search.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Bugzilla/Search.pm') 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); } -- cgit v1.2.3-24-g4f1b