Bug 1136137: Require Perl 5.14

r=dkl

1 files changed, 2 insertions, 2 deletions

diff --git a/editproducts.cgi b/editproducts.cgi
index a1c06e91f..5f7434772 100755
--- a/editproducts.cgi
+++ b/editproducts.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;
 
@@ -343,7 +343,7 @@ if ($action eq 'updategroupcontrols') {
     my @now_na = ();
     my @now_mandatory = ();
     foreach my $f ($cgi->param()) {
-        if ($f =~ /^membercontrol_(\d+)$/) {
+        if ($f =~ /^membercontrol_(\d+)$/a) {
             my $id = $1;
             if ($cgi->param($f) == CONTROLMAPNA) {
                 push @now_na,$id;