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

Shut up some Perl 5.20 warnings

Browse source
This commit is contained in:
Eelco Dolstra 2014-11-25 00:27:52 +01:00
parent 5e265e6739
commit 9e00d98d34
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lib/Hydra/Controller/User.pm
View file

@ -306,7 +306,7 @@ sub dashboard :Chained('user') :Args(0) {
my @builds = $j->job->builds->search(
{ },
{ rows => 20, order_by => "id desc" });
push $c->stash->{starredJobs}, { job => $j->job, builds => [@builds] };
push @{$c->stash->{starredJobs}}, { job => $j->job, builds => [@builds] };
}
}

4
src/lib/Hydra/View/NixExprs.pm
View file

@ -59,7 +59,7 @@ EOF
$res .= "else " if !$first;
$res .= "if system == ${\escape $system} then {\n\n";
foreach my $job (keys $perSystem{$system}) {
foreach my $job (keys %{$perSystem{$system}}) {
my $pkg = $perSystem{$system}->{$job};
my $build = $pkg->{build};
$res .= " # Hydra build ${\$build->id}\n";
@ -78,7 +78,7 @@ EOF
if $build->maintainers;
$res .= " };\n";
$res .= " } {\n";
my @outputNames = sort (keys $pkg->{outputs});
my @outputNames = sort (keys %{$pkg->{outputs}});
$res .= " ${\escape $_} = ${\escape $pkg->{outputs}->{$_}};\n" foreach @outputNames;
my $out = defined $pkg->{outputs}->{"out"} ? "out" : $outputNames[0];
$res .= " }).$out;\n\n";