Fix some warnings about undefined values

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

View File

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