Bug 607966: Use of qw(...) as parentheses is deprecated since Perl 5.13.5

r=gerv a=LpSolit

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index a3343a2f27a3fc683850b4afbc35606fb62b2251..3cd5a38224bed7c3262723274a9b207858b68954 100644 (file)
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -1251,7 +1251,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 4a8140df3b42cc3b2373520a6e9a91b2aba5a4e6..eec5df3745f4b5dc7c190ae808e1f27abb6b0bbe 100644 (file)
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -171,9 +171,7 @@ sub clean_search_url {
     foreach my $num (1,2) {
         # 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/chart.cgi b/chart.cgi
index 0b46347b5ea5cc576690ac675b23b4806518b995..b4c82adae1dcef480166e4bc29bbb494d38ae56e 100755 (executable)
--- a/chart.cgi
+++ b/chart.cgi
@@ -200,7 +200,7 @@ elsif ($action eq "delete") {
 
     $series->remove_from_db();
     # Remove (sub)categories which no longer have any series.
-    foreach my $cat qw(category subcategory) {
+    foreach my $cat (qw(category subcategory)) {
         my $is_used = $dbh->selectrow_array("SELECT COUNT(*) FROM series WHERE $cat = ?",
                                              undef, $series->{"${cat}_id"});
         if (!$is_used) {