Fix broken DOC INIT blocks

rakudo · Aug 6, 2014 · dc9083f · dc9083f
1 parent 3f3abe7
commit dc9083f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1427,7 +1427,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     method statement_prefix:sym<POST>($/)  { make $*W.add_phaser($/, 'POST', ($<blorst>.ast).ann('code_object'), ($<blorst>.ast).ann('past_block')); }
 
     method statement_prefix:sym<DOC>($/)   {
-        $*W.add_phaser($/, ~$<phase>, ($<blorst>.ast).ann('code_object'))
+        $*W.add_phaser($/, ~$<phase>, ($<blorst>.ast).ann('code_object'), ($<blorst>.ast).ann('past_block'))
             if %*COMPILING<%?OPTIONS><doc>;
     }