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