Fix for bug 87596: improper definition of $::components in globals.pl

Patch by Dave Miller <justdave@syndicomm.com>
r= jake@acutex.net

diff --git a/enter_bug.cgi b/enter_bug.cgi
index c1f4e61b15518bb958ccb37c73e4334bce919a1a..91622590c34275366ad41bd7cf1aaa1ae1fed843 100755 (executable)
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -237,7 +237,7 @@ my $platform_popup = make_popup('rep_platform', \@::legal_platform,
                                 pickplatform(), 0);
 my $opsys_popup = make_popup('op_sys', \@::legal_opsys, pickos(), 0);
 
-if (0 == $::components{$product}) {
+if (0 == @{$::components{$product}}) {
        print "<H1>Permission Denied</H1>\n";
        print "Sorry.  You need to have at least one component for this product\n";
        print "in order to create a new bug.  Go to the \"Components\" link to create\n";

diff --git a/globals.pl b/globals.pl
index 2b3456959f7bb86832b8565dbc813962a54e7253..aa50355a05d0ff98425c771b28650b032a7cc4db 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -501,7 +501,7 @@ sub GenerateVersionTable {
 
     foreach my $i (@list) {
         if (!defined $::components{$i}) {
-            $::components{$i} = "";
+            $::components{$i} = [];
         }
     }
     @::legal_versions = sort {uc($a) cmp uc($b)} keys(%varray);