Bugfixing

diff --git a/LogRotate.pm b/LogRotate.pm
index b8ac3f0e363998fed375837f20a5809484ff483d..7bd4a5abb7d52a6e648d72ac6a10713d33f8c1c5 100644 (file)
--- a/LogRotate.pm
+++ b/LogRotate.pm
@@ -336,9 +336,11 @@ sub collect_old_logfiles($$) {
     print $p . "Suche nach Pattern '$pattern'.\n" if verbose() > 2;
     @Liste = glob( $pattern );
     for ( @Liste ) {
-      print "    - '$_'\n" if verbose() > 3;
-      @Stats = stat $_;
-      $res->{$_} = $Stats[9];
+      if ( $_ ne $file ) {
+        print "    - '$_'\n" if verbose() > 3;
+        @Stats = stat $_;
+        $res->{$_} = $Stats[9];
+      }
     }
   }
 
@@ -1010,7 +1012,9 @@ sub rotate_file($$) {
     warn $p . "Fehler beim Ermitteln der bisher rotierten Logfiles.\n";
     return undef;
   }
-  print $p . "Liste aller bisher rotierten Logfiles: " . Dumper($old_logfiles) if verbose() > 1;
+  print $p . "Insgesamt " . scalar( keys %$old_logfiles ) . " bisher rotierte Logdateie" . (scalar( keys %$old_logfiles ) == 1 ? "" : "n") . ".\n" if verbose();
+  print $p . "Liste aller bisher rotierten Logfiles: " . Dumper($old_logfiles) if verbose() > 2;
+  
   $f->{'oldfiles'} = $old_logfiles;
 
   return 1;