Avoid some warnings

environments/ppa-mbqj77/deployments/1
Xavier Guimard 9 years ago
parent 857ec88efc
commit 7de28b3912
  1. 5
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/API.pm
  2. 7
      lemonldap-ng-handler/t/test-psgi-lib.pm

@ -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/

@ -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 => '' ) )
}
);
}

Loading…
Cancel
Save