proper log caller depth with no request

This commit is contained in:
Graham Knop 2010-05-10 16:42:03 -05:00
parent fc6d8e0016
commit a80b6a5f6d

View file

@ -213,6 +213,7 @@ sub new {
$logger = sub {
my $args = shift;
my $level = $args->{level};
local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
$log4perl->$level( $args->{message} );
};
}