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( my @builds = $j->job->builds->search(
{ }, { },
{ rows => 20, order_by => "id desc" }); { 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 .= "else " if !$first;
$res .= "if system == ${\escape $system} then {\n\n"; $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 $pkg = $perSystem{$system}->{$job};
my $build = $pkg->{build}; my $build = $pkg->{build};
$res .= " # Hydra build ${\$build->id}\n"; $res .= " # Hydra build ${\$build->id}\n";
@ -78,7 +78,7 @@ EOF
if $build->maintainers; if $build->maintainers;
$res .= " };\n"; $res .= " };\n";
$res .= " } {\n"; $res .= " } {\n";
my @outputNames = sort (keys $pkg->{outputs}); my @outputNames = sort (keys %{$pkg->{outputs}});
$res .= " ${\escape $_} = ${\escape $pkg->{outputs}->{$_}};\n" foreach @outputNames; $res .= " ${\escape $_} = ${\escape $pkg->{outputs}->{$_}};\n" foreach @outputNames;
my $out = defined $pkg->{outputs}->{"out"} ? "out" : $outputNames[0]; my $out = defined $pkg->{outputs}->{"out"} ? "out" : $outputNames[0];
$res .= " }).$out;\n\n"; $res .= " }).$out;\n\n";