diff options
| author | Frédéric Buclin <LpSolit@gmail.com> | 2010-10-28 17:20:46 +0200 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2010-10-28 17:20:46 +0200 |
| commit | 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 (patch) | |
| tree | d61d32e7a433608eda5d62871eccafe23e931d43 /Bugzilla/CGI.pm | |
| parent | a6041007c544e7b2a8ae703c8e45e635e2ace991 (diff) | |
| download | bugzilla-5ba4b1aff6564126b3d0b1e7741b992d178d8f66.tar.gz bugzilla-5ba4b1aff6564126b3d0b1e7741b992d178d8f66.tar.xz | |
Bug 607966: Use of qw(...) as parentheses is deprecated since Perl 5.13.5
r=gerv a=LpSolit
Diffstat (limited to 'Bugzilla/CGI.pm')
| -rw-r--r-- | Bugzilla/CGI.pm | 4 |
1 files changed, 1 insertions, 3 deletions
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"); } } |