avoid sinking of state initializers

rakudo · Feb 21, 2013 · 5dfb733 · 5dfb733
1 parent cd95e40
commit 5dfb733
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1626,6 +1626,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         QAST::Op.new( :op('p6stateinit') ),
                         $past,
                         $orig_past);
+                    $past<nosink> := 1;
                 }
             }
             make $past;