Bug 611129: Quicksearch fails in 3.6.3 if List::MoreUtils is not installed

r/a=mkanat

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index f77bf6dedf8cfeacf511d9e2f7d5448e9062bcd3..6ffc63b65b930b7308a4935372849addf6d0087d 100644 (file)
--- a/Bugzilla/Search/Quicksearch.pm
+++ b/Bugzilla/Search/Quicksearch.pm
@@ -31,7 +31,6 @@ use Bugzilla::Field;
 use Bugzilla::Util;
 
 use List::Util qw(min max);
-use List::MoreUtils qw(firstidx);
 
 use base qw(Exporter);
 @Bugzilla::Search::Quicksearch::EXPORT = qw(quicksearch);
@@ -447,9 +446,9 @@ sub _special_field_syntax {
         my $legal_priorities = get_legal_field_values('priority');
 
         # If Pn exists explicitly, use it.
-        my $start = firstidx { $_ eq "P$p_start" } @$legal_priorities;
+        my $start = lsearch($legal_priorities, "P$p_start");
         my $end;
-        $end = firstidx { $_ eq "P$p_end" } @$legal_priorities if defined $p_end;
+        $end = lsearch($legal_priorities, "P$p_end") if defined $p_end;
 
         # If Pn doesn't exist explicitly, then we mean the nth priority.
         if ($start == -1) {