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