From: Sven Schöling <s.schoeling@linet-services.de>
Date: Tue, 17 Oct 2017 12:39:53 +0000 (+0200)
Subject: Tests: Fix für String-Evaluation-Änderung in Perl 5.26 Teil 2
X-Git-Tag: release-3.5.4~677
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e62747c305faec39584f383bfdd3117b3a99205a;p=kivitendo-erp.git

Tests: Fix für String-Evaluation-Änderung in Perl 5.26 Teil 2
---

diff --git a/SL/Helper/Object.pm b/SL/Helper/Object.pm
index 91268029a..922dafb97 100644
--- a/SL/Helper/Object.pm
+++ b/SL/Helper/Object.pm
@@ -80,7 +80,7 @@ sub delegate {
           $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: $@";
     }
   }
 }