From 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
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

---
 chart.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'chart.cgi')

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) {
-- 
cgit v1.2.3-24-g4f1b