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/WebService/Bug.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/WebService/Bug.pm')
| -rw-r--r-- | Bugzilla/WebService/Bug.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Bugzilla/WebService/Bug.pm b/Bugzilla/WebService/Bug.pm index a922c2bf0..aaf0d10e0 100644 --- a/Bugzilla/WebService/Bug.pm +++ b/Bugzilla/WebService/Bug.pm @@ -7,7 +7,7 @@ package Bugzilla::WebService::Bug; -use 5.10.1; +use 5.14.0; use strict; use warnings; @@ -530,7 +530,7 @@ sub search { my %options = ( fields => ['bug_id'] ); # Find the highest custom field id - my @field_ids = grep(/^f(\d+)$/, keys %$match_params); + my @field_ids = grep(/^f(\d+)$/a, keys %$match_params); my $last_field_id = @field_ids ? max @field_ids + 1 : 1; # Do special search types for certain fields. |