From 4218394913eb9f3fa72910ca568a6cfaab463800 Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Sun, 27 Feb 2005 09:19:27 +0000
Subject: Bug 283019: Stop Bugzilla::Config.pm from use-ing Bugzilla::Util
 Patch By Marc Schumann <wurblzap@gmail.com> r=LpSolit, a=myk

---
 Bugzilla/Config.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Bugzilla/Config.pm')

diff --git a/Bugzilla/Config.pm b/Bugzilla/Config.pm
index 3849f146b..f843f36b4 100644
--- a/Bugzilla/Config.pm
+++ b/Bugzilla/Config.pm
@@ -33,8 +33,6 @@ use strict;
 
 use base qw(Exporter);
 
-use Bugzilla::Util;
-
 # Under mod_perl, get this from a .htaccess config variable,
 # and/or default from the current 'real' dir
 # At some stage after this, it may be possible for these dir locations
@@ -307,7 +305,7 @@ sub check_multi {
     my ($value, $param) = (@_);
 
     if ($param->{'type'} eq "s") {
-        unless (lsearch($param->{'choices'}, $value) >= 0) {
+        unless (scalar(grep {$_ eq $value} (@{$param->{'choices'}}))) {
             return "Invalid choice '$value' for single-select list param '$param'";
         }
 
@@ -315,7 +313,7 @@ sub check_multi {
     }
     elsif ($param->{'type'} eq "m") {
         foreach my $chkParam (@$value) {
-            unless (lsearch($param->{'choices'}, $chkParam) >= 0) {
+            unless (scalar(grep {$_ eq $chkParam} (@{$param->{'choices'}}))) {
                 return "Invalid choice '$chkParam' for multi-select list param '$param'";
             }
         }
-- 
cgit v1.2.3-24-g4f1b