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 /show_bug.cgi | |
parent | 438d57d65626d068ca0f28de46410ebecc9a9b57 (diff) | |
download | bugzilla-86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b.tar.gz bugzilla-86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b.tar.xz |
Bug 1136137: Require Perl 5.14
r=dkl
Diffstat (limited to 'show_bug.cgi')
-rwxr-xr-x | show_bug.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/show_bug.cgi b/show_bug.cgi index 997fab60d..09cb91a86 100755 --- a/show_bug.cgi +++ b/show_bug.cgi @@ -6,7 +6,7 @@ # This Source Code Form is "Incompatible With Secondary Licenses", as # defined by the Mozilla Public License, v. 2.0. -use 5.10.1; +use 5.14.0; use strict; use warnings; @@ -51,11 +51,11 @@ if ($single) { push @bugs, Bugzilla::Bug->check({ id => $id, cache => 1 }); if (defined $cgi->param('mark')) { foreach my $range (split ',', $cgi->param('mark')) { - if ($range =~ /^(\d+)-(\d+)$/) { + if ($range =~ /^(\d+)-(\d+)$/a) { foreach my $i ($1..$2) { $marks{$i} = 1; } - } elsif ($range =~ /^(\d+)$/) { + } elsif ($range =~ /^(\d+)$/a) { $marks{$1} = 1; } } |