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 |
- |
|
|