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

(-)a/debian/templates/plack.psgi (+9 lines)
Lines 37-42 use Koha::Cache::Memory::Lite; Link Here
37
use Koha::Database;
37
use Koha::Database;
38
use Koha::DateUtils;
38
use Koha::DateUtils;
39
39
40
#BZ 16520, add timestamps to warnings
41
use Log::Log4perl qw(:easy);
42
Log::Log4perl->easy_init($WARN);
43
my $logger = Log::Log4perl->get_logger(); # use the default logger style
44
$SIG{__WARN__} = sub {
45
    my $message = shift;
46
    $logger->warn($message);
47
};
48
40
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
49
use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise
41
{
50
{
42
    no warnings 'redefine';
51
    no warnings 'redefine';
(-)a/misc/plack/koha.psgi (-1 / +9 lines)
Lines 5-10 use lib qw( ./lib ); Link Here
5
use Plack::Middleware::Debug;
5
use Plack::Middleware::Debug;
6
use Plack::App::Directory;
6
use Plack::App::Directory;
7
7
8
#BZ 16520, add timestamps to warnings
9
use Log::Log4perl qw(:easy);
10
Log::Log4perl->easy_init($WARN);
11
my $logger = Log::Log4perl->get_logger(); # use the default logger style
12
$SIG{__WARN__} = sub {
13
    my $message = shift;
14
    $logger->warn($message);
15
};
16
8
use CGI qw(-utf8 ); # we will lose -utf8 under plack
17
use CGI qw(-utf8 ); # we will lose -utf8 under plack
9
{
18
{
10
    no warnings 'redefine';
19
    no warnings 'redefine';
11
- 

Return to bug 16357