grahamc/hydra2 - Change TPSCSZKXKQAMSLMRACXSHWQ4OY7HPSJSJ4KTJY6HLHZQAJ5MDRZAC

Speed up findBuildDependencyInQueue

This was taking a long time due to the giant SQL query.

Issue #99.

Created by Eelco Dolstra on June 7, 2013

TPSCSZKXKQAMSLMRACXSHWQ4OY7HPSJSJ4KTJY6HLHZQAJ5MDRZAC

Dependencies

In channels

main

Change contents

Replacement in src/script/hydra-queue-runner at line 54 [4.7823]
B:BD[3.43] → [3.43:65]
```
    my ($build) = @_;
```
[3.43]
[5.116]
```
    my ($buildsByDrv, $build) = @_;
```

Replacement in src/script/hydra-queue-runner at line 57 [4.7823]

B:BD[5.251] → [5.251:296]

B:BD[5.296] → [2.286:349]

∅:D[2.349] → [5.374:427]

B:BD[5.374] → [5.374:427]

    return $db->resultset('Builds')->search(
        { drvpath => [ @deps ], finished => 0, enabled => 1 },
        { join => ['project'], rows => 1 })->single;

[5.251]

[3.565]

    foreach my $d (@deps) {
        my $b = $buildsByDrv->{$d};
        next unless defined $b;
        return $db->resultset('Builds')->find($b);
    }
    return undef;

Insertion in src/script/hydra-queue-runner at line 83 [4.7823]

[6.23]

        # Cache scheduled by derivation path to speed up
        # findBuildDependencyInQueue.
        my $buildsByDrv = {};
        $buildsByDrv->{$_->drvpath} = $_->id
            foreach $db->resultset('Builds')->search({ finished => 0, enabled => 1 }, { join => ['project'] });

Replacement in src/script/hydra-queue-runner at line 121 [4.7823]

B:BD[5.758] → [5.758:829]

                while (my $dep = findBuildDependencyInQueue($build)) {

[5.758]

[5.829]

                while (my $dep = findBuildDependencyInQueue($buildsByDrv, $build)) {