diff --git a/lib/WebGUI/Session/ErrorHandler.pm b/lib/WebGUI/Session/ErrorHandler.pm index a124dba13..89c3fc6c1 100644 --- a/lib/WebGUI/Session/ErrorHandler.pm +++ b/lib/WebGUI/Session/ErrorHandler.pm @@ -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} ); }; }