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 91268029ad62be0cbd92aabd413db5fd6d893f4c..922dafb97dfa51f3dca072da7a58850e141c4979 100644 (file)
--- 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;
           $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: $@";

     }
   }
 }
     }
   }
 }