Fix perl warning.

git-svn-id: svn://10.0.0.236/trunk@51254 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
1999-10-20 14:12:43 +00:00
parent 2f8bc8e00f
commit bf28c3efd8

View File

@@ -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>";