From 102e10e5c38f4b7d6d871cd52b709dbb87f827d6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Wed, 3 Jul 2013 13:12:08 +0200 Subject: [PATCH] Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen. --- SL/InstanceConfiguration.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/SL/InstanceConfiguration.pm b/SL/InstanceConfiguration.pm index 6ea88f8d1..52e5f4806 100644 --- 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}; -- 2.20.1