From: justdave%syndicomm.com <>
Date: Thu, 1 Apr 2004 13:01:04 +0000 (+0000)
Subject: Bug 237591: Regexp metacharacters in product names would break XML import.
X-Git-Tag: bugzilla-2.16.6~27
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0144c2e27bfcc9b02514eb0cb7577bed0f8076ef;p=thirdparty%2Fbugzilla.git

Bug 237591: Regexp metacharacters in product names would break XML import.
r= bbaetz, a= justdave
---

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");