From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 11 Mar 2013 10:21:02 +0000 (+0100)
Subject: Presenter-Template-Plugin: bei nicht existierenden Funktionen warnen
X-Git-Tag: release-3.1.0beta1~535
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=7c5f4e408e06771eebb5378b21ef071dab360343;p=kivitendo-erp.git

Presenter-Template-Plugin: bei nicht existierenden Funktionen warnen
---

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');