@@ -, +, @@ --- debian/templates/plack.psgi | 6 ++---- misc/plack/koha.psgi | 6 ++---- 2 files changed, 4 insertions(+), 8 deletions(-) --- a/debian/templates/plack.psgi +++ a/debian/templates/plack.psgi @@ -41,10 +41,8 @@ use Koha::DateUtils; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 }); my $logger = Log::Log4perl->get_logger(); # use the default logger style -$SIG{__WARN__} = sub { - my $message = shift; - $logger->warn($message); -}; +$SIG{__WARN__} = sub { $logger->warn(shift) }; +$SIG{__DIE__} = sub { $logger->fatal(shift) }; use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise { --- a/misc/plack/koha.psgi +++ a/misc/plack/koha.psgi @@ -9,10 +9,8 @@ use Plack::App::Directory; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 }); my $logger = Log::Log4perl->get_logger(); # use the default logger style -$SIG{__WARN__} = sub { - my $message = shift; - $logger->warn($message); -}; +$SIG{__WARN__} = sub { $logger->warn(shift) }; +$SIG{__DIE__} = sub { $logger->fatal(shift) }; use CGI qw(-utf8 ); # we will lose -utf8 under plack { --