Avoid some warnings

environments/ppa-mbqj77/deployments/1
Xavier Guimard 10 years ago
parent 46b986a965
commit 773ccfe718
  1. 2
      lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/Serializer.pm
  2. 3
      lemonldap-ng-handler/t/10-Lemonldap-NG-Handler-SharedConf.t

@ -99,7 +99,7 @@ sub unserialize {
$conf->{$k} = ( $v =~ /./ ? eval { from_json($v) } : {} );
if ($@) {
$Lemonldap::NG::Common::Conf::msg .=
"Unable to decode $k, probably old format. Trying... ($@)";
"Unable to decode $k, switching to old format.\n";
return $self->oldUnserialize($fields);
}
}

@ -49,6 +49,7 @@ $LLNG_DEFAULTCONFFILE = $ini->filename;
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
$Lemonldap::NG::Handler::API::logLevel = 'error';
use_ok('Lemonldap::NG::Handler');
if ( $numTests == 3 ) {
@ -62,7 +63,7 @@ if ( $numTests == 3 ) {
my $ret;
$mock->fake_module(
'Lemonldap::NG::Handler::API',
newRequest => sub { print STDERR "newRequest\n" },
newRequest => sub { 1 },
header_in => sub { "" },
hostname => sub { 'test.example.com' },
is_initial_req => sub { '1' },

Loading…
Cancel
Save