Commit 773ccfe7 authored by Yadd's avatar Yadd

Avoid some warnings

parent 46b986a9
...@@ -99,7 +99,7 @@ sub unserialize { ...@@ -99,7 +99,7 @@ sub unserialize {
$conf->{$k} = ( $v =~ /./ ? eval { from_json($v) } : {} ); $conf->{$k} = ( $v =~ /./ ? eval { from_json($v) } : {} );
if ($@) { if ($@) {
$Lemonldap::NG::Common::Conf::msg .= $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); return $self->oldUnserialize($fields);
} }
} }
......
...@@ -49,6 +49,7 @@ $LLNG_DEFAULTCONFFILE = $ini->filename; ...@@ -49,6 +49,7 @@ $LLNG_DEFAULTCONFFILE = $ini->filename;
# Insert your test code below, the Test::More module is use()ed here so read # 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. # its man page ( perldoc Test::More ) for help writing this test script.
$Lemonldap::NG::Handler::API::logLevel = 'error';
use_ok('Lemonldap::NG::Handler'); use_ok('Lemonldap::NG::Handler');
if ( $numTests == 3 ) { if ( $numTests == 3 ) {
...@@ -62,7 +63,7 @@ if ( $numTests == 3 ) { ...@@ -62,7 +63,7 @@ if ( $numTests == 3 ) {
my $ret; my $ret;
$mock->fake_module( $mock->fake_module(
'Lemonldap::NG::Handler::API', 'Lemonldap::NG::Handler::API',
newRequest => sub { print STDERR "newRequest\n" }, newRequest => sub { 1 },
header_in => sub { "" }, header_in => sub { "" },
hostname => sub { 'test.example.com' }, hostname => sub { 'test.example.com' },
is_initial_req => sub { '1' }, is_initial_req => sub { '1' },
......
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