34 lines
955 B
Perl
34 lines
955 B
Perl
--- lib/Log/Dispatch/File/Rolling.pm.orig 2025-08-11 13:17:33 UTC
|
|
+++ lib/Log/Dispatch/File/Rolling.pm
|
|
@@ -5,7 +5,7 @@ use warnings;
|
|
use strict;
|
|
use warnings;
|
|
|
|
-use Log::Dispatch::File '2.37';
|
|
+use Log::Dispatch::File 2.37;
|
|
use Log::Log4perl::DateFormat;
|
|
use Fcntl ':flock'; # import LOCK_* constants
|
|
|
|
@@ -39,7 +39,8 @@ sub new {
|
|
my $self = bless {}, $class;
|
|
|
|
# only append mode is supported
|
|
- $p{mode} = 'append';
|
|
+ $p{mode} = 'append'; # Specifies append for Log::Dispatch::File 2.37 through 2.58
|
|
+ $self->{mode} = '>>'; # Specifies append for Log::Dispatch::File 2.59+ (no longer done by _basic_init)
|
|
|
|
# base class initialization
|
|
$self->_basic_init(%p);
|
|
@@ -63,7 +64,10 @@ sub new {
|
|
}
|
|
|
|
$self->{rolling_fh_pid} = $$;
|
|
- $self->_make_handle();
|
|
+ # _make_handle() was removed in Log::Dispatch::File 2.67
|
|
+ # $self->_make_handle();
|
|
+ $self->_open_file()
|
|
+ unless $self->{close_after_write} || $self->{lazy_open};
|
|
|
|
return $self;
|
|
}
|