diff options
author | Frédéric Buclin <LpSolit@gmail.com> | 2016-02-29 19:34:34 +0100 |
---|---|---|
committer | Frédéric Buclin <LpSolit@gmail.com> | 2016-02-29 19:34:34 +0100 |
commit | 86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b (patch) | |
tree | 85acb4dc08ab6ff6247c2aafca88ac7bb3acd2e0 /Bugzilla/Chart.pm | |
parent | 438d57d65626d068ca0f28de46410ebecc9a9b57 (diff) | |
download | bugzilla-86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b.tar.gz bugzilla-86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b.tar.xz |
Bug 1136137: Require Perl 5.14
r=dkl
Diffstat (limited to 'Bugzilla/Chart.pm')
-rw-r--r-- | Bugzilla/Chart.pm | 6 |
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 { # >=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); } } |