Fix for bug 65399: Can't use string ("") as an ARRAY ref while "strict refs" in use...

Patch by Matthias Radestock <matthias@sorted.org>
r= justdave@syndicomm.com

diff --git a/query.cgi b/query.cgi
index 0c171ce58c7e4d8b5cefe48e420931e5378b44a4..f9822bd5fe291521b83b5e2e717684967edc95a0 100755 (executable)
--- a/query.cgi
+++ b/query.cgi
@@ -292,8 +292,10 @@ foreach my $p (@::legal_product) {
     next;
   }
   push @::product_list, $p;
-  foreach my $c (@{$::components{$p}}) {
-    $component_set{$c} = 1;
+  if ($::components{$p}) {
+    foreach my $c (@{$::components{$p}}) {
+      $component_set{$c} = 1;
+    }
   }
   foreach my $v (@{$::versions{$p}}) {
     $version_set{$v} = 1;