Fix perlwarning

This commit is contained in:
Jamie Cameron
2018-11-15 13:11:02 -08:00
parent 39b71c618a
commit bf63fea503

View File

@@ -1964,7 +1964,7 @@ sub printLog($;$) {
if (/^1\.1\.1\.\d+$/) {
print " <i>(vendor branch)</i>";
}
if (defined @mytz) {
if (@mytz) {
my ($est) = $mytz[(localtime($date{$_}))[8]];
print ", <i>" . scalar localtime($date{$_}) . " $est</i> (";
} else {