Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen.

diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm
index 6ea88f8d1546d4011b80949b82e79a9bee5f6dde..52e5f48065355ca71c15fac6fded5d2890cdc7f5 100644 (file)
--- a/SL/InstanceConfiguration.pm
+++ b/SL/InstanceConfiguration.pm
@@ -44,6 +44,8 @@ sub AUTOLOAD {
   my $method =  $AUTOLOAD;
   $method    =~ s/.*:://;
 
   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};
   if ($method =~ m/^get_/) {
     $method = substr $method, 4;
     return $self->data->{$method} if exists $self->data->{$method};