my $subjobs= $jobq->fetchall_arrayref( {} );
$jobq->finish();
+ foreach my $subjob (@$subjobs) {
+ my $jobspec= $subjob->{val};
+ if ($jobspec =~ m/^(\d+)\.(.+)$/) {
+ $subjob->{job} = $2;
+ $subjob->{orgflight} = $1;
+ } else {
+ $subjob->{job} = $jobspec;
+ $subjob->{orgflight} = $copyflight;
+ }
+ }
+
# See if there's a build we can reuse
my ($recipe) = $dbh_tests->selectrow_array(<<END,{}, $copyflight,$popjob);
END
foreach my $subjob (@$subjobs) {
my $target;
- my $jobspec= $subjob->{val};
- if ($jobspec =~ m/^(\d+)\.(.+)$/) {
- $target= preparejob($2, $1, 1);
- } else {
- $target= preparejob($jobspec, $copyflight, 1);
- }
+ $target= preparejob($subjob->{job}, $subjob->{orgflight}, 1);
$jobsetq->execute($target, $popflight, $popjob, $subjob->{name});
}
$jobsetq->finish();