Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen.

diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm
index 6ea88f8..52e5f48 100644 (file)
--- a/SL/InstanceConfiguration.pm
+++ b/SL/InstanceConfiguration.pm
@@ -44,6 +44,8 @@ sub AUTOLOAD {
   my $method =  $AUTOLOAD;
   $method    =~ s/.*:://;
 
+  return if $method eq 'DESTROY';
+
   if ($method =~ m/^get_/) {
     $method = substr $method, 4;
     return $self->data->{$method} if exists $self->data->{$method};