Added a disgusting hack to deal with the fact that we can occasionally get builds with wildly wrong times.

This commit is contained in:
terry%netscape.com 1999-03-09 05:07:50 +00:00
Родитель 9ff6fc0f22
Коммит 01d194aa5b
1 изменённых файлов: 11 добавлений и 1 удалений

Просмотреть файл

@ -201,11 +201,21 @@ sub load_buildlog {
my ($bw) = Backwards->new("$t->{name}/build.dat") or die; my ($bw) = Backwards->new("$t->{name}/build.dat") or die;
my $tooearly = 0;
while( $_ = $bw->readline ) { while( $_ = $bw->readline ) {
chomp; chomp;
($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname) = ($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname) =
split( /\|/ ); split( /\|/ );
last if $buildtime < $mindate; if ($buildtime < $mindate) {
# Occasionally, a build might show up with a bogus time. So,
# we won't judge ourselves as having hit the end until we
# hit a full 20 lines in a row that are too early.
if ($tooearly++ > 20) {
last;
}
next;
}
$tooearly = 0;
$buildrec = { $buildrec = {
mailtime => $mailtime, mailtime => $mailtime,
buildtime => $buildtime, buildtime => $buildtime,