From 271477d8c26794abd8310e2abb89b746204660af Mon Sep 17 00:00:00 2001
From: Max Kanat-Alexander <mkanat@bugzilla.org>
Date: Thu, 22 Apr 2010 11:02:17 -0700
Subject: Bug 560009: Use firstidx from List::MoreUtils instead of lsearch
 r=timello, a=mkanat

---
 report.cgi | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'report.cgi')

diff --git a/report.cgi b/report.cgi
index 33d46675f..4c9a98b8a 100755
--- a/report.cgi
+++ b/report.cgi
@@ -349,7 +349,9 @@ sub get_names {
         # the normal order.
         #
         # This is O(n^2) but it shouldn't matter for short lists.
-        @sorted = map {lsearch(\@unsorted, $_) == -1 ? () : $_} @{$field_list};
+        foreach my $item (@$field_list) {
+            push(@sorted, $item) if grep { $_ eq $item } @unsorted;
+        }
     }  
     elsif ($isnumeric) {
         # It's not a field we are preserving the order of, so sort it 
-- 
cgit v1.2.3-24-g4f1b