Fix little warnings (#1559)

lemonldap-ng-common/lib/Lemonldap/NG/Common/Session.pm

@@ -13,7 +13,10 @@ use Lemonldap::NG::Common::Apache::Session;
 # Workaround for another ModPerl/Mouse issue...
 BEGIN {
     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 ) {
         require Moose;
         Moose->import();

lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Jail.pm

@@ -8,7 +8,9 @@ use Lemonldap::NG::Common::Safelib;    #link protected safe Safe object
 # Workaround for another ModPerl/Mouse issue...
 BEGIN {
     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 ) {
         require Moose;
         Moose->import();

lemonldap-ng-portal/t/20-Auth-and-password-DBI-dynamic-hash.t

@@ -190,7 +190,7 @@ SKIP: {
         'Authentication against newly-modified password'
     );
     expectOK($res);
-    my $id = expectCookie($res);
+    $id = expectCookie($res);
 
 # Verify that password is hashed with correct scheme (dbiDynamicHashNewPasswordScheme)
     my $sth = $dbh->prepare("SELECT password FROM users WHERE user='jsmith';");