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

---
 Bugzilla/Chart.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Bugzilla/Chart.pm')

diff --git a/Bugzilla/Chart.pm b/Bugzilla/Chart.pm
index 3c69006aa..d0a1312ad 100644
--- a/Bugzilla/Chart.pm
+++ b/Bugzilla/Chart.pm
@@ -13,7 +13,7 @@
 # the same points.
 package Bugzilla::Chart;
 
-use 5.10.1;
+use 5.14.0;
 use strict;
 use warnings;
 
@@ -59,7 +59,7 @@ sub init {
     # &gt=1&labelgt=Grand+Total    
     foreach my $param ($cgi->param()) {
         # Store all the lines
-        if ($param =~ /^line(\d+)$/) {
+        if ($param =~ /^line(\d+)$/a) {
             foreach my $series_id ($cgi->param($param)) {
                 detaint_natural($series_id) 
                                      || ThrowCodeError("invalid_series_id");
@@ -69,7 +69,7 @@ sub init {
         }
 
         # Store all the labels
-        if ($param =~ /^label(\d+)$/) {
+        if ($param =~ /^label(\d+)$/a) {
             $self->{'labels'}[$1] = $cgi->param($param);
         }        
     }
-- 
cgit v1.2.3-24-g4f1b