B:BD[
3.7968] → [
3.7968:8033]
B:BD[
3.8033] → [
2.11358:11472]
∅:D[
2.11472] → [
3.8095:8125]
B:BD[
3.8095] → [
3.8095:8125]
B:BD[
2.11499] → [
2.11499:11547]
∅:D[
2.11547] → [
3.8157:8293]
B:BD[
3.8157] → [
3.8157:8293]
B:BD[
3.8293] → [
2.11548:11679]
# Unlock jobs whose building process has died.
$db->txn_do(sub {
my @jobs = $db->resultset('Builds')->search(
{finished => 0, busy => 1}, {join => 'schedulingInfo'});
foreach my $job (@jobs) {
my $pid = $job->schedulingInfo->locker;
if (kill(0, $pid) != 1) { # see if we can signal the process
print "job ", $job->id, " pid $pid died, unlocking\n";
$job->schedulingInfo->busy(0);
$job->schedulingInfo->locker("");
$job->schedulingInfo->update;
sub unlockDeadJobs {
# Unlock jobs whose building process has died.
$db->txn_do(sub {
my @jobs = $db->resultset('Builds')->search(
{finished => 0, busy => 1}, {join => 'schedulingInfo'});
foreach my $job (@jobs) {
my $pid = $job->schedulingInfo->locker;
if (kill(0, $pid) != 1) { # see if we can signal the process
print "job ", $job->id, " pid $pid died, unlocking\n";
$job->schedulingInfo->busy(0);
$job->schedulingInfo->locker("");
$job->schedulingInfo->update;
}