Stop hllizing and sinking the result of .+, .* and .= method calls

rakudo · Aug 15, 2017 · 2b8115f · 2b8115f
1 parent f1464e2
commit 2b8115f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6601,7 +6601,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
             # values may need type mapping into Perl 6 land.
             $past.unshift(WANTED($/[0].ast,'EXPR/POSTFIX'));
             if $past.isa(QAST::Op) && $past.op eq 'callmethod' {
-                $return_map := 1;
+                unless $<OPER> && ($<OPER><sym> eq '.=' || $<OPER><sym> eq '.+' || $<OPER><sym> eq '.?') {
+                    $return_map := 1
+                }
             }
         }
         elsif $past.ann('thunky') {