View | Details | Raw Unified | Return to bug 16357
Collapse All | Expand All

(-)a/debian/templates/plack.psgi (-4 / +2 lines)
Lines 41-50 use Koha::DateUtils; Link Here
41
use Log::Log4perl qw(:easy);
41
use Log::Log4perl qw(:easy);
42
Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 });
42
Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 });
43
my $logger = Log::Log4perl->get_logger(); # use the default logger style
43
my $logger = Log::Log4perl->get_logger(); # use the default logger style
44
$SIG{__WARN__} = sub {
44
$SIG{__WARN__} = sub { $logger->warn(shift) };
45
    my $message = shift;
45
$SIG{__DIE__}  = sub { $logger->fatal(shift) };
46
    $logger->warn($message);
47
};
48
46
49
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
47
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
50
{
48
{
(-)a/misc/plack/koha.psgi (-5 / +2 lines)
Lines 9-18 use Plack::App::Directory; Link Here
9
use Log::Log4perl qw(:easy);
9
use Log::Log4perl qw(:easy);
10
Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 });
10
Log::Log4perl->easy_init({ level => $WARN, utf8 => 1 });
11
my $logger = Log::Log4perl->get_logger(); # use the default logger style
11
my $logger = Log::Log4perl->get_logger(); # use the default logger style
12
$SIG{__WARN__} = sub {
12
$SIG{__WARN__} = sub { $logger->warn(shift) };
13
    my $message = shift;
13
$SIG{__DIE__}  = sub { $logger->fatal(shift) };
14
    $logger->warn($message);
15
};
16
14
17
use CGI qw(-utf8 ); # we will lose -utf8 under plack
15
use CGI qw(-utf8 ); # we will lose -utf8 under plack
18
{
16
{
19
- 

Return to bug 16357