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

r=gerv a=LpSolit

1 files changed, 1 insertions, 1 deletions

diff --git a/chart.cgi b/chart.cgi
index dcd83cb01..12ef8d834 100755
--- 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) {