Commit 02f8c410 authored by Xavier Guimard's avatar Xavier Guimard

Fix little warnings (#1559)

parent 42bf43e0
...@@ -13,7 +13,10 @@ use Lemonldap::NG::Common::Apache::Session; ...@@ -13,7 +13,10 @@ use Lemonldap::NG::Common::Apache::Session;
# Workaround for another ModPerl/Mouse issue... # Workaround for another ModPerl/Mouse issue...
BEGIN { BEGIN {
require Mouse; require Mouse;
my $v = sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) ); my $v =
$Mouse::VERSION
? sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) )
: 0;
if ( $v < 2.005001 and $Lemonldap::NG::Handler::Apache2::Main::VERSION ) { if ( $v < 2.005001 and $Lemonldap::NG::Handler::Apache2::Main::VERSION ) {
require Moose; require Moose;
Moose->import(); Moose->import();
......
...@@ -8,7 +8,9 @@ use Lemonldap::NG::Common::Safelib; #link protected safe Safe object ...@@ -8,7 +8,9 @@ use Lemonldap::NG::Common::Safelib; #link protected safe Safe object
# Workaround for another ModPerl/Mouse issue... # Workaround for another ModPerl/Mouse issue...
BEGIN { BEGIN {
require Mouse; require Mouse;
my $v = sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) ); my $v = $Mouse::VERSION
? sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) )
: 0;
if ( $v < 2.005001 and $Lemonldap::NG::Handler::Apache2::Main::VERSION ) { if ( $v < 2.005001 and $Lemonldap::NG::Handler::Apache2::Main::VERSION ) {
require Moose; require Moose;
Moose->import(); Moose->import();
......
...@@ -190,7 +190,7 @@ SKIP: { ...@@ -190,7 +190,7 @@ SKIP: {
'Authentication against newly-modified password' 'Authentication against newly-modified password'
); );
expectOK($res); expectOK($res);
my $id = expectCookie($res); $id = expectCookie($res);
# Verify that password is hashed with correct scheme (dbiDynamicHashNewPasswordScheme) # Verify that password is hashed with correct scheme (dbiDynamicHashNewPasswordScheme)
my $sth = $dbh->prepare("SELECT password FROM users WHERE user='jsmith';"); my $sth = $dbh->prepare("SELECT password FROM users WHERE user='jsmith';");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment