Bug 1136137: Require Perl 5.14

r=dkl

1 files changed, 3 insertions, 3 deletions

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);
         }        
     }