#769 Numeric sort error for logfile rotation
This commit is contained in:
6
Changes
6
Changes
@@ -1,3 +1,9 @@
|
||||
2.047005 - 2021-02-24
|
||||
|
||||
[BUG FIXES]
|
||||
|
||||
* #769 Numeric sort error for logfile rotation
|
||||
|
||||
2.047004 - 2021-02-15
|
||||
|
||||
[BUG FIXES]
|
||||
|
||||
@@ -168,7 +168,7 @@ sub rotate_logs {
|
||||
((-s $log_file) > ($logsize * 1024768));
|
||||
|
||||
my @files = grep { /$log_file\.\d+/ } glob file($log_dir, '*');
|
||||
foreach my $f (sort { $b <=> $a } @files) {
|
||||
foreach my $f (sort { $b cmp $a } @files) {
|
||||
next unless $f =~ m/$log_file\.(\d+)$/;
|
||||
my $pos = $1;
|
||||
unlink $f if $pos == ($logfiles - 1);
|
||||
|
||||
@@ -183,7 +183,7 @@ sub rotate_logs {
|
||||
((-s $log_file) > ($logsize * 1024768));
|
||||
|
||||
my @files = grep { /$log_file\.\d+/ } glob file($log_dir, '*');
|
||||
foreach my $f (sort { $b <=> $a } @files) {
|
||||
foreach my $f (sort { $b cmp $a } @files) {
|
||||
next unless $f =~ m/$log_file\.(\d+)$/;
|
||||
my $pos = $1;
|
||||
unlink $f if $pos == ($logfiles - 1);
|
||||
|
||||
Reference in New Issue
Block a user