#769 Numeric sort error for logfile rotation

2021-02-24 10:46:34 +00:00
parent 6a714c43c8
commit 9816bb5148
3 changed files with 8 additions and 2 deletions
--- a/bin/netdisco-backend
+++ b/bin/netdisco-backend
@@ -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);