From f7c3193b0af6e272fd5365c443fcfb329ad3fccb Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 17 Oct 2017 13:16:46 +0200
Subject: [PATCH] =?utf8?q?Tests:=20Fix=20f=C3=BCr=20String-Evaluation-?=
 =?utf8?q?=C3=84nderung=20in=20Perl=205.26?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Vorher wurde "$a::$b" als "${a}::${b}" gewertet. Nun wird das aber als
"${a::}${b}" gewertet.
---
 SL/Helper/Object.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Helper/Object.pm b/SL/Helper/Object.pm
index bf673b2e1..91268029a 100644
--- a/SL/Helper/Object.pm
+++ b/SL/Helper/Object.pm
@@ -76,7 +76,7 @@ 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;
-- 
2.20.1