From 0144c2e27bfcc9b02514eb0cb7577bed0f8076ef Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Thu, 1 Apr 2004 13:01:04 +0000
Subject: [PATCH] Bug 237591: Regexp metacharacters in product names would
 break XML import. r= bbaetz, a= justdave

---
 importxml.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/importxml.pl b/importxml.pl
index 7401e09c54..f7c2076773 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -374,14 +374,14 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
 
   my @product;
   my @component;
-  if ((@product = grep /^$prod$/i, @::legal_product) &&
-      (@component = grep /^$comp$/i, @{$::components{$product[0]}}) ) {
+  if ((@product = grep { lc($prod) eq lc($_) } @::legal_product) &&
+      (@component = grep { lc($comp) eq lc($_) } @{$::components{$product[0]}}) ) {
     push (@query, "product");
     push (@values, SqlQuote($product[0]) );
     push (@query, "component");
     push (@values, SqlQuote($component[0]) );
-  } elsif ((@product = grep /^$default_prod$/i, @::legal_product) &&
-      (@component = grep /^$default_comp$/i, @{$::components{$product[0]}}) ) {
+  } elsif ((@product = grep { lc($default_prod) eq lc($_) } @::legal_product) &&
+      (@component = grep { lc($default_comp) eq lc($_) } @{$::components{$product[0]}}) ) {
     push (@query, "product");
     push (@values, SqlQuote($product[0]) );
     push (@query, "component");
-- 
2.47.3