Fix for bug 65399: Can't use string ("") as an ARRAY ref while "strict refs" in use at query.cgi due to no components defined in a product.

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

1 files changed, 4 insertions, 2 deletions

diff --git a/query.cgi b/query.cgi
index 0c171ce58..f9822bd5f 100755
--- 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;