the code to ensure that builds do not start too quickly was buggy.

This commit is contained in:
kestes%tradinglinx.com 2001-02-27 15:10:52 +00:00
Родитель 434afbeb02
Коммит 17c7333bb5
1 изменённых файлов: 8 добавлений и 5 удалений

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

@ -7,8 +7,8 @@
# the build was and display a link to the build log.
# $Revision: 1.13 $
# $Date: 2001-02-16 00:08:53 $
# $Revision: 1.14 $
# $Date: 2001-02-27 15:10:52 $
# $Author: kestes%tradinglinx.com $
# $Source: /home/jrmuizel/cvs-mirror/mozilla/webtools/tinderbox2/src/lib/TinderDB/Build.pm,v $
# $Name: $
@ -183,7 +183,7 @@ sub build_names {
$tree,
[@outrow],
);
return @outrow;
}
@ -289,7 +289,7 @@ sub gettree_header {
my ($rec) = $DATABASE{$tree}{$buildname}{'recs'}[$db_index];
my ($buildstatus) = $rec->{'status'};
(BuildStatus::is_status_final($buildstatus)) ||
(BuildStatus::is_status_final($buildstatus)) ||
next;
if ($buildstatus eq 'success') {
@ -779,8 +779,11 @@ sub apply_db_updates {
# spacing. There can be very frequent updates for any build
# but different builds must be spaced apart.
my ($safe_separation) = (TinderDB::TABLE_SPACING +
my ($safe_separation) = ($TinderDB::TABLE_SPACING *
$main::SECONDS_PER_MINUTE);
# add a few seconds for safety
$safe_separation += 100;
my ($separation) = ($record->{'starttime'} -
$previous_rec->{'starttime'});