X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/02752d70d3760e6761ae40f7a3b83181e9cd782c..d32410ac096b:/SL/Helper/Object.pm?ds=sidebyside

diff --git a/SL/Helper/Object.pm b/SL/Helper/Object.pm
index bf673b2e1..922dafb97 100644
--- a/SL/Helper/Object.pm
+++ b/SL/Helper/Object.pm
@@ -76,11 +76,11 @@ sub delegate {
       die "invalid args handling '$params->{args}'" unless defined $target_code;
 
       eval "
-        sub $caller::$method {
+        sub ${caller}::$method {
           $pre_context $target_code$method_joiner$target_method$args_string; $post_context
         }
         1;
-      " or die "could not create $caller::$method: $@";
+      " or die "could not create ${caller}::$method: $@";
     }
   }
 }