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

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

Fix for bug 65399: Can't use string ("") as an ARRAY ref while "strict refs" in…
83c52d39 · justdave%syndicomm.com · c0b95464 · 83c52d39
Commit 83c52d39 authored May 30, 2001 by justdave%syndicomm.com
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

query.cgi query.cgi +4 -2

No files found.
--- 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;