$SIG{__WARN__} = sub { local ${Log::Log4perl::caller_depth}; ${Log::Log4perl::caller_depth} = ${Log::Log4perl::caller_depth} + 1; $logger->logconfess(@_); };