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