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

Fix some warnings about undefined values

Browse source
This commit is contained in:
Eelco Dolstra 2012-07-02 15:18:30 +00:00
parent d37c2c239c
commit fe2dab6fe8
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -361,7 +361,7 @@ sub getEvals {
foreach my $input (@{$curInputs}) { foreach my $input (@{$curInputs}) {
my $p = $prevInputsHash{$input->name}; my $p = $prevInputsHash{$input->name};
push @changedInputs, $input push @changedInputs, $input
if !defined $p || $input->revision ne $p->revision || $input->type ne $p->type || $input->uri ne $p->uri || if !defined $p || ($input->revision || "") ne ($p->revision || "") || $input->type ne $p->type || ($input->uri || "") ne ($p->uri || "") ||
( defined $input->dependency && defined $p->dependency && $input->dependency->id ne $p->dependency->id); ( defined $input->dependency && defined $p->dependency && $input->dependency->id ne $p->dependency->id);
} }
$prevInputs = $curInputs; $prevInputs = $curInputs;

9
src/lib/Hydra/Controller/Root.pm
View file

@ -194,6 +194,13 @@ sub nar :Local :Args(1) {
$c->stash->{storePath} = $path; $c->stash->{storePath} = $path;
} }
sub narinfo :Path('*.narinfo') {
my ($self, $c) = @_;
$c->stash->{current_view} = 'NixInfo';
}
sub change_password : Path('change-password') : Args(0) { sub change_password : Path('change-password') : Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
@ -202,6 +209,7 @@ sub change_password : Path('change-password') : Args(0) {
$c->stash->{template} = 'change-password.tt'; $c->stash->{template} = 'change-password.tt';
} }
sub change_password_submit : Path('change-password/submit') : Args(0) { sub change_password_submit : Path('change-password/submit') : Args(0) {
my ($self, $c) = @_; my ($self, $c) = @_;
@ -219,6 +227,7 @@ sub change_password_submit : Path('change-password/submit') : Args(0) {
$c->res->redirect("/"); $c->res->redirect("/");
} }
sub logo :Local { sub logo :Local {
my ($self, $c) = @_; my ($self, $c) = @_;
my $path = $ENV{"HYDRA_LOGO"} or die("Logo not set!"); my $path = $ENV{"HYDRA_LOGO"} or die("Logo not set!");