Lines 27-46
sub TIEHANDLE {
Link Here
|
27 |
|
27 |
|
28 |
sub PRINT { |
28 |
sub PRINT { |
29 |
my $self = shift; |
29 |
my $self = shift; |
30 |
$Log::Log4perl::caller_depth++; |
30 |
$Log::Log4perl::caller_depth += 3; |
31 |
my $logger = |
31 |
my $logger = |
32 |
Koha::Logger->get( { interface => 'sip', category => 'STDERR' } ); |
32 |
Koha::Logger->get( { interface => 'sip', category => 'STDERR' } ); |
33 |
warn @_; |
33 |
warn @_; |
34 |
$logger->warn(@_); |
34 |
$logger->warn(@_); |
35 |
$Log::Log4perl::caller_depth--; |
35 |
$Log::Log4perl::caller_depth -= 3; |
36 |
} |
36 |
} |
37 |
|
37 |
|
|
|
38 |
=head2 OPEN |
39 |
|
40 |
We need OPEN in case Net::Server tries to redirect STDERR. This will |
41 |
be tried when param log_file or setsid is passed. |
42 |
|
43 |
=cut |
44 |
|
38 |
sub OPEN { |
45 |
sub OPEN { |
39 |
return 1; |
46 |
return 1; |
40 |
} |
47 |
} |
41 |
|
48 |
|
42 |
=head2 BINMODE |
49 |
=head2 BINMODE |
43 |
|
|
|
44 |
Suppress errors from Log::Log4perl::Appender::Screen |
50 |
Suppress errors from Log::Log4perl::Appender::Screen |
45 |
|
51 |
|
46 |
=cut |
52 |
=cut |