Tweak Code.name so it doesn't explode on PIR subs.

rakudo · Apr 22, 2010 · 559b0ca · 559b0ca
1 parent 6ee83f2
commit 559b0ca
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/builtins/Code.pir b/src/builtins/Code.pir
@@ -131,8 +131,7 @@ Just calls this block with the supplied parameters.
 =cut
 
 .sub 'name' :method
-    $P0 = getattribute self, '$!do'
-    $S0 = $P0
+    $S0 = self
     .return ($S0)
 .end