do not sink list assignment

rakudo · Dec 2, 2012 · 36e4477 · 36e4477
1 parent 17bcd96
commit 36e4477
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -82,7 +82,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             'unless',       1,
     );
     sub autosink($past) {
-        nqp::istype($past, QAST::Op) && %sinkable{$past.op}
+        nqp::istype($past, QAST::Op) && %sinkable{$past.op} && !$past<nosink>
             ?? sink($past)
             !! $past;
     }
@@ -4280,6 +4280,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             $past := QAST::Op.new(
                 :op('callmethod'), :name('STORE'),
                 $lhs_ast, $rhs_ast);
+            $past<nosink> := 1;
         }
         else {
             $past := QAST::Op.new( :node($/), :op('p6store'),