hydra-queue-runner: Don't kill builds we just started

This commit is contained in:
Eelco Dolstra 2013-09-21 20:51:43 +02:00
parent accefbb798
commit 52ce662710

View file

@ -28,7 +28,7 @@ sub unlockDeadBuilds {
my $pid = $build->locker; my $pid = $build->locker;
my $unlock = 0; my $unlock = 0;
if ($pid == $$) { if ($pid == $$) {
if (!defined $lastTime || $build->starttime < $lastTime - 600) { if (!defined $lastTime || $build->starttime < $lastTime - 180) {
$unlock = 1; $unlock = 1;
} }
} elsif (kill(0, $pid) != 1) { # see if we can signal the process } elsif (kill(0, $pid) != 1) { # see if we can signal the process
@ -230,9 +230,9 @@ while (1) {
unlockDeadBuilds; unlockDeadBuilds;
checkBuilds;
$lastTime = time(); $lastTime = time();
checkBuilds;
}; };
warn $@ if $@; warn $@ if $@;