make backtraces a bit more awesome

rakudo · Feb 15, 2012 · a94a530 · a94a530
1 parent d4d4a21
commit a94a530
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Backtrace.pm b/src/core/Backtrace.pm
@@ -9,7 +9,7 @@ my class Backtrace is List {
         has Str $.subname;
 
         method subtype {
-            my $s = $!code.WHAT.perl.lc;
+            my $s = $!code.^name.lc.split('+', 2)[0];
             $s eq 'mu' ?? '' !! $s;
         }