From bf28c3efd86ba2ecdd10685f0f03338fb3e39c23 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org"
 <terry%mozilla.org@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 20 Oct 1999 14:12:43 +0000
Subject: [PATCH] Fix perl warning.

git-svn-id: svn://10.0.0.236/trunk@51254 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/showvotes.cgi | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/mozilla/webtools/bugzilla/showvotes.cgi b/mozilla/webtools/bugzilla/showvotes.cgi
index 1d03ae19107..0ab22ac7fa8 100755
--- a/mozilla/webtools/bugzilla/showvotes.cgi
+++ b/mozilla/webtools/bugzilla/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>";