From: Sven Schöling Date: Wed, 3 Jul 2013 11:12:08 +0000 (+0200) Subject: Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen. X-Git-Tag: release-3.1.0beta1~214 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=102e10e5c38f4b7d6d871cd52b709dbb87f827d6;p=kivitendo-erp.git Nicht versuchen DESTROY mit AUTOLOAD zu dispatchen. --- 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};