Fix perl warning.

2911603c · terry%mozilla.org · db3478cb · 2911603c
Commit 2911603c authored Oct 20, 1999 by terry%mozilla.org
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

showvotes.cgi showvotes.cgi +3 -0

No files found.
--- a/showvotes.cgi
+++ b/showvotes.cgi
@@ -80,6 +80,9 @@ if (defined $::FORM{'bug_id'}) {
        print "<tr><th>$product</th></tr>";
        while (MoreSQLData()) {
            my ($id, $count, $summary, $status) = (FetchSQLData());
+            if (!defined $status) {
+                next;
+            }
            my $opened = ($status eq "NEW" || $status eq "ASSIGNED" ||
                          $status eq "REOPENED");
            my $strike = $opened ? "" : "<strike>";