Modifications in AUTOLOAD methods

diff --git a/LogRotate/Conf.pm b/LogRotate/Conf.pm
index 3025c444e0831bb57ee8ddecbc8f4634152c9bbf..9b0a4558f05a120b867c4ad69043b25510e1f59b 100644 (file)
--- a/LogRotate/Conf.pm
+++ b/LogRotate/Conf.pm
@@ -160,8 +160,9 @@ sub AUTOLOAD {
 
     $attr =~ s/.*:://;
     $attr = lc($attr);
-
-    croak "Ungueltige Attributmethode ->$attr()" unless $ok_field{$attr};
+    
+    return if $attr eq 'destroy';
+    croak __PACKAGE__ . "::AUTOLOAD(): Ungueltige Attributmethode ->$attr()" unless $ok_field{$attr};
 
     return $self->compress_cmd(@_)              if $attr eq "compress_cmd";
     return $self->default_compress(@_)          if $attr eq "default_compress";
@@ -1918,4 +1919,4 @@ Frank Brehm <frank@brehm-online.com>
 
 =cut
 
-
+# vim: ts=4 et

diff --git a/LogRotate/StateFile.pm b/LogRotate/StateFile.pm
index e07a398aba669f80b193822074c45df98cf7866f..f025a8c1d7a7c5b2d632de6a9b96677615ad9335 100644 (file)
--- a/LogRotate/StateFile.pm
+++ b/LogRotate/StateFile.pm
@@ -106,7 +106,8 @@ sub AUTOLOAD {
     $attr =~ s/.*:://;
     $attr = lc($attr);
 
-    croak "Ungueltige Attributmethode ->$attr()" unless $ok_field{$attr};
+    return if $attr eq 'destroy';
+    croak __PACKAGE__ . "::AUTOLOAD(): Ungueltige Attributmethode ->$attr()" unless $ok_field{$attr};
 
     return $self->file(@_) if $attr eq "file";
     return $self->test(@_) if $attr eq "test";
@@ -414,4 +415,4 @@ Frank Brehm <frank@brehm-online.com>
 
 =cut
 
-
+# vim: ts=4 et