Warning now gives the exact Code descendant class

rakudo · Jun 21, 2015 · 62cdc29 · 62cdc29
1 parent 8276cee
commit 62cdc29
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Code.pm b/src/core/Code.pm
@@ -14,7 +14,9 @@ my class Code does Callable { # declared in BOOTSTRAP
 
     method signature(Code:D:) { $!signature }
 
-    multi method Str(Code:D:) { warn("Code object coerced to string (please use .gist or .perl to do that)"); self.name }
+    multi method Str(Code:D:) { 
+        warn( self.WHAT.perl ~ " object coerced to string (please use .gist or .perl to do that)"); self.name
+    }
 
     method outer(Code:D:) {
         nqp::ifnull(nqp::getcodeobj(nqp::p6staticouter($!do)), Mu)