From 86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Mon, 29 Feb 2016 19:34:34 +0100
Subject: Bug 1136137: Require Perl 5.14 r=dkl

---
 chart.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'chart.cgi')

diff --git a/chart.cgi b/chart.cgi
index 62054b799..13c9fe4cc 100755
--- a/chart.cgi
+++ b/chart.cgi
@@ -27,7 +27,7 @@
 # Bonus:
 # Offer subscription when you get a "series already exists" error?
 
-use 5.10.1;
+use 5.14.0;
 use strict;
 use warnings;
 
@@ -231,7 +231,7 @@ sub getAndValidateSeriesIDs {
 
 # Return a list of IDs of all the lines selected in the UI.
 sub getSelectedLines {
-    my @ids = map { /^select(\d+)$/ ? $1 : () } $cgi->param();
+    my @ids = map { /^select(\d+)$/a ? $1 : () } $cgi->param();
 
     return @ids;
 }
-- 
cgit v1.2.3-24-g4f1b