Typos
This commit is contained in:
parent
a1f899ced9
commit
028b0823e9
|
@ -2,7 +2,7 @@ package Lemonldap::NG::Common::Logger::Dispatch;
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
our $VERSION = '2.0.14';
|
||||
|
||||
sub new {
|
||||
no warnings 'redefine';
|
||||
|
@ -35,7 +35,7 @@ sub new {
|
|||
$show = 0 if ( $conf->{logLevel} eq $l );
|
||||
|
||||
}
|
||||
die "unknown level $conf->{logLevel}" if ($show);
|
||||
die "Unknown logLevel $conf->{logLevel}" if ($show);
|
||||
return $self;
|
||||
}
|
||||
|
||||
|
|
|
@ -10,7 +10,7 @@ package Lemonldap::NG::Common::Logger::Sentry;
|
|||
use strict;
|
||||
use Sentry::Raven;
|
||||
|
||||
our $VERSION = '2.0.0';
|
||||
our $VERSION = '2.0.14';
|
||||
|
||||
sub new {
|
||||
my $self = bless {}, shift;
|
||||
|
@ -31,7 +31,7 @@ qq'sub $_ {\$_[0]->{raven}->capture_message(\$_[1],level => "$rl")}';
|
|||
}
|
||||
$show = 0 if ( $conf->{logLevel} eq $_ );
|
||||
}
|
||||
die "unknown level $conf->{logLevel}" if ($show);
|
||||
die "Unknown logLevel $conf->{logLevel}" if ($show);
|
||||
return $self;
|
||||
}
|
||||
|
||||
|
|
|
@ -2,7 +2,7 @@ package Lemonldap::NG::Common::Logger::Std;
|
|||
|
||||
use strict;
|
||||
|
||||
our $VERSION = '2.0.5';
|
||||
our $VERSION = '2.0.14';
|
||||
|
||||
sub new {
|
||||
no warnings 'redefine';
|
||||
|
@ -18,7 +18,7 @@ qq'sub $_ {print STDERR "[".localtime."] [LLNG:\$\$] [$_] \$_[1]\n"}';
|
|||
}
|
||||
$show = 0 if ( $level eq $_ );
|
||||
}
|
||||
die "unknown level $level" if ($show);
|
||||
die "Unknown logLevel $level" if ($show);
|
||||
return bless {}, shift;
|
||||
}
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ package Lemonldap::NG::Common::Logger::Syslog;
|
|||
use strict;
|
||||
use Sys::Syslog qw(:standard);
|
||||
|
||||
our $VERSION = '2.0.9';
|
||||
our $VERSION = '2.0.14';
|
||||
|
||||
sub new {
|
||||
my ( $class, $conf, %args ) = @_;
|
||||
|
@ -34,7 +34,7 @@ sub new {
|
|||
}
|
||||
$show = 0 if ( $level eq $_ );
|
||||
}
|
||||
die "unknown level $level" if ($show);
|
||||
die "Unknown logLevel $level" if ($show);
|
||||
return $self;
|
||||
}
|
||||
|
||||
|
|
|
@ -54,7 +54,7 @@ sub logLevelInit {
|
|||
eval "require $logger";
|
||||
die $@ if ($@);
|
||||
unless (
|
||||
$class->localConfig->{logLevel} =~ /^(debug|info|notice|warn|error)$/ )
|
||||
$class->localConfig->{logLevel} =~ /^(?:debug|info|notice|warn|error)$/ )
|
||||
{
|
||||
print STDERR 'Bad logLevel value \''
|
||||
. $class->localConfig->{logLevel}
|
||||
|
|
|
@ -26,7 +26,7 @@ sub Lemonldap::NG::Handler::Main::defaultLogger {
|
|||
'Lemonldap::NG::Common::Logger::Std';
|
||||
}
|
||||
|
||||
eval { Lemonldap::NG::Handler::Main->logLevelInit('error') };
|
||||
eval { Lemonldap::NG::Handler::Main->logLevelInit() };
|
||||
ok( !$@, 'logLevelInit' );
|
||||
|
||||
ok(
|
||||
|
|
Loading…
Reference in New Issue