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

Vorher wurde "$a::$b" als "${a}::${b}" gewertet. Nun wird das aber als
"${a::}${b}" gewertet.

diff --git a/SL/Helper/Object.pm b/SL/Helper/Object.pm
index bf673b2e1252473db86d4432b3fad7ab038e5aa0..91268029ad62be0cbd92aabd413db5fd6d893f4c 100644 (file)
--- 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 "
       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;
           $pre_context $target_code$method_joiner$target_method$args_string; $post_context
         }
         1;