Fix '{ say $^x } given 42'.

rakudo · Apr 28, 2015 · b317d0a · b317d0a
1 parent cd53104
commit b317d0a
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -824,11 +824,10 @@ Compilation unit '$file' contained the following violations:
             if $ml {
                 my $cond := $ml<smexpr>.ast;
                 if ~$ml<sym> eq 'given' {
-                    $past := QAST::Op.new(
-                        :op('call'),
-                        block_closure(make_topic_block_ref($/, $past, migrate_stmt_id => $*STATEMENT_ID)),
-                        $cond
-                    );
+                    unless $past.ann('bare_block') {
+                        $past := make_topic_block_ref($/, $past, migrate_stmt_id => $*STATEMENT_ID);
+                    }
+                    $past := QAST::Op.new( :op('call'), block_closure($past), $cond );
                 }
                 elsif ~$ml<sym> eq 'for' {
                     unless $past.ann('past_block') {