зеркало из https://github.com/mozilla/pjs.git
Fix perl warning.
This commit is contained in:
Родитель
427e787189
Коммит
83ee8e24e6
|
@ -80,6 +80,9 @@ if (defined $::FORM{'bug_id'}) {
|
||||||
print "<tr><th>$product</th></tr>";
|
print "<tr><th>$product</th></tr>";
|
||||||
while (MoreSQLData()) {
|
while (MoreSQLData()) {
|
||||||
my ($id, $count, $summary, $status) = (FetchSQLData());
|
my ($id, $count, $summary, $status) = (FetchSQLData());
|
||||||
|
if (!defined $status) {
|
||||||
|
next;
|
||||||
|
}
|
||||||
my $opened = ($status eq "NEW" || $status eq "ASSIGNED" ||
|
my $opened = ($status eq "NEW" || $status eq "ASSIGNED" ||
|
||||||
$status eq "REOPENED");
|
$status eq "REOPENED");
|
||||||
my $strike = $opened ? "" : "<strike>";
|
my $strike = $opened ? "" : "<strike>";
|
||||||
|
|
Загрузка…
Ссылка в новой задаче