X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d445880375bce1462b8f9a8b1a502b34c296d41f..c6dd542b51ae9549ad42a54f9023b905412bbab9:/SL/Template/Plugin/P.pm

diff --git a/SL/Template/Plugin/P.pm b/SL/Template/Plugin/P.pm
index d2f442354..44eeb436d 100644
--- a/SL/Template/Plugin/P.pm
+++ b/SL/Template/Plugin/P.pm
@@ -29,7 +29,12 @@ sub AUTOLOAD {
   my $method        =  $AUTOLOAD;
   $method           =~ s/.*:://;
 
-  return '' unless $presenter->can($method);
+  return '' if $method eq 'DESTROY';
+
+  if (!$presenter->can($method)) {
+    $::lxdebug->message(LXDebug::WARN(), "SL::Presenter has no method named '$method'!");
+    return '';
+  }
 
   splice @args, -1, 1, %{ $args[-1] } if @args && (ref($args[-1]) eq 'HASH');