Bug 237591: Regexp metacharacters in product names would break XML import.

r= bbaetz, a= justdave

diff --git a/importxml.pl b/importxml.pl
index 7401e09c54093cf8b8664cb9cd6f196bbad79f69..f7c20767734e542c4d2bdfdeead773d0afd7cd5b 100755 (executable)
--- 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");