Wrap single statement into PAST::Block inside if/for/while for preser…

…ve semantic
parrot · Mar 2, 2011 · bf11a89 · bf11a89
1 parent e613f2b
commit bf11a89
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/compilers/opsc/src/Ops/Compiler/Actions.pm b/compilers/opsc/src/Ops/Compiler/Actions.pm
@@ -598,7 +598,9 @@ method statement_control:sym<continue> ($/) {
 
 method statement_or_block ($/) {
     $<labeled_statement>
-        ?? make $<labeled_statement>.ast
+        ?? make PAST::Block.new(
+               $<labeled_statement>.ast
+           )
         !! make $<blockoid>.ast
 }