|
Lines 35-41
sub PRINT {
Link Here
|
| 35 |
$Log::Log4perl::caller_depth--; |
35 |
$Log::Log4perl::caller_depth--; |
| 36 |
} |
36 |
} |
| 37 |
|
37 |
|
| 38 |
# Supress errors from Log::Log4perl::Appender::Screen |
38 |
=head2 BINMODE |
|
|
39 |
|
| 40 |
Suppress errors from Log::Log4perl::Appender::Screen |
| 41 |
|
| 42 |
=cut |
| 43 |
|
| 39 |
sub BINMODE { |
44 |
sub BINMODE { |
| 40 |
my ( $self, $mode ) = @_; |
45 |
my ( $self, $mode ) = @_; |
| 41 |
binmode( STDOUT, $mode ); |
46 |
binmode( STDOUT, $mode ); |
| 42 |
- |
|
|