Bugfixing

diff --git a/LogRotate/Conf.pm b/LogRotate/Conf.pm
index 3b7bd0d35a9850f4fa594927d70d66a7afdbdcff..83d9a44626635df39b937ccd0e4bb49f06982938 100644 (file)
--- a/LogRotate/Conf.pm
+++ b/LogRotate/Conf.pm
@@ -1178,7 +1178,7 @@ sub directive($$$$$) {
 
         if ($negated) {
             print $p . "Direktive 'create' wird in '$wo' enfernt.\n" if verbose() > 5;
-            delete $self->{$wo}{'create'} = if exists $self->{$wo}{'create'};
+            $self->{$wo}{'create'} = undef;
             return 1;
         }
 
@@ -1230,7 +1230,7 @@ sub directive($$$$$) {
 
         if ($negated) {
             print $p . "Direktive 'olddir' wird in '$wo' enfernt.\n" if verbose() > 5;
-            delete $self->{$wo}{'olddir'} = if exists $self->{$wo}{'olddir'};
+            $self->{$wo}{'olddir'} = undef;
             return 1;
         }
 
@@ -1661,8 +1661,13 @@ sub log_end($$$$$) {
 
     foreach $name ( @{ $self->{'newfile'}{'files'} } ) {
         %{ $self->{'logfiles'}{$name} } = %{ $self->{'newfile'} };
-        $self->{'logfiles'}{$name}{'create'} = {};
-        %{ $self->{'logfiles'}{$name}{'create'} } = %{ $self->{'newfile'}{'create'} };
+        if ( $self->{'newfile'}{'create'} ) {
+            $self->{'logfiles'}{$name}{'create'} = {};
+            %{ $self->{'logfiles'}{$name}{'create'} } = %{ $self->{'newfile'}{'create'} };
+        }
+        else {
+            $self->{'logfiles'}{$name}{'create'} = undef;
+        }
         $self->{'logfiles'}{$name}{'olddir'} = {};
         if ( defined $self->{'newfile'}{'olddir'} ) {
             %{ $self->{'logfiles'}{$name}{'olddir'} } = %{ $self->{'newfile'}{'olddir'} };