vriska/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

* Fix an apparent incompatibility with recent DBIx::Class.

Browse source
This commit is contained in:
Eelco Dolstra 2009-10-26 13:55:54 +00:00
parent 3e8d85ecb0
commit cd27c046b0
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/script/hydra_build.pl
View file

@ -30,6 +30,7 @@ sub getBuildLog {
return -e $logPath ? $logPath : undef; return -e $logPath ? $logPath : undef;
} }
sub sendTwitterNotification { sub sendTwitterNotification {
my ($build) = @_; my ($build) = @_;
@ -61,6 +62,7 @@ sub sendTwitterNotification {
warn "$@\n" if $@; warn "$@\n" if $@;
} }
sub sendEmailNotification { sub sendEmailNotification {
my ($build) = @_; my ($build) = @_;
@ -197,8 +199,9 @@ sub doBuild {
"--no-build-output --log-type flat --print-build-trace " . "--no-build-output --log-type flat --print-build-trace " .
"--add-root " . gcRootFor $outPath . " 2>&1"; "--add-root " . gcRootFor $outPath . " 2>&1";
my $buildStepNr = $build->buildsteps->find({}, my $max = $build->buildsteps->find(
{select => {max => 'stepnr + 1'}, as => ['max']})->get_column('max') || 1; {}, {select => {max => 'stepnr + 1'}, as => ['max']});
my $buildStepNr = defined $max ? $max->get_column('max') : 1;
my %buildSteps; my %buildSteps;