From 86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Mon, 29 Feb 2016 19:34:34 +0100 Subject: Bug 1136137: Require Perl 5.14 r=dkl --- show_bug.cgi | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'show_bug.cgi') 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; } } -- cgit v1.2.3-24-g4f1b