Fix some warnings (#1559)

This commit is contained in:
Xavier Guimard 2018-11-29 19:48:49 +01:00
parent 1ab7826767
commit 75f20be6d8
2 changed files with 2 additions and 0 deletions

View File

@ -13,6 +13,7 @@ use Lemonldap::NG::Common::Apache::Session;
# Workaround for another ModPerl/Mouse issue...
BEGIN {
require Mouse;
no warnings;
my $v =
$Mouse::VERSION
? sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) )

View File

@ -8,6 +8,7 @@ use Lemonldap::NG::Common::Safelib; #link protected safe Safe object
# Workaround for another ModPerl/Mouse issue...
BEGIN {
require Mouse;
no warnings;
my $v = $Mouse::VERSION
? sprintf( "%d.%03d%03d", ( $Mouse::VERSION =~ /(\d+)/g ) )
: 0;