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/CGI.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Bugzilla/CGI.pm') 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"); } } -- cgit v1.2.3-24-g4f1b