Avoid some warnings

This commit is contained in:
Xavier Guimard 2016-02-17 10:07:24 +00:00
parent 857ec88efc
commit 7de28b3912
2 changed files with 8 additions and 4 deletions

View File

@ -51,8 +51,9 @@ sub AUTOLOAD {
(
( caller(1) )[0] =~
/^Lemonldap::NG::Handler::(?:Nginx|PSGI::Server)$/
or ( caller(6) )[0] =~
/^Lemonldap::NG::Handler::(?:Nginx|PSGI::Server)$/
or ( caller(6)
and ( caller(6) )[0] =~
/^Lemonldap::NG::Handler::(?:Nginx|PSGI::Server)$/ )
) ? 'PSGI/Server'
: (
( caller(0) )[0] =~ /^Lemonldap::NG::Handler::PSGI/

View File

@ -48,7 +48,10 @@ has app => (
return $module->run(
{
configStorage => { type => 'File', dirName => 't' },
logLevel => 'warn'
logLevel => 'warn',
cookieName => 'lemonldap',
securedCookie => 0,
https => 0,
}
);
}
@ -76,7 +79,7 @@ sub _get {
'Mozilla/5.0 (VAX-4000; rv:36.0) Gecko/20350101 Firefox',
'REMOTE_ADDR' => '127.0.0.1',
'HTTP_HOST' => $host,
( $cookie ? ( HTTP_COOKIE => $cookie ) : () )
( $cookie ? ( HTTP_COOKIE => $cookie ) : ( HTTP_COOKIE => '' ) )
}
);
}