From: terry%mozilla.org <>
Date: Wed, 20 Oct 1999 21:12:43 +0000 (+0000)
Subject: Fix perl warning.
X-Git-Tag: bugzilla-2.8~12
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2911603c213f06ebf23d1610b4af23c39a22cbf6;p=thirdparty%2Fbugzilla.git

Fix perl warning.
---

diff --git a/showvotes.cgi b/showvotes.cgi
index 1d03ae1910..0ab22ac7fa 100755
--- 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>";