Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen.
authorSven Schöling <s.schoeling@linet-services.de>
Wed, 3 Jul 2013 11:12:08 +0000 (13:12 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Wed, 3 Jul 2013 11:12:08 +0000 (13:12 +0200)
SL/InstanceConfiguration.pm

index 6ea88f8..52e5f48 100644 (file)
@@ -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};