Fix compiler explosion in while 0 { my $_ }.

rakudo · Sep 19, 2015 · a328aab · a328aab
1 parent f7c2a72
commit a328aab
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1174,13 +1174,11 @@ Compilation unit '$file' contained the following violations:
         }
         else {
             unless $BLOCK.symbol('$_') {
-                if $*IMPLICIT {
-                    $BLOCK[0].push(QAST::Var.new( :name('$_'), :scope('lexical'), :decl('var') ));
-                }
-                else {
+                $BLOCK[0].push(QAST::Var.new( :name('$_'), :scope('lexical'), :decl('var') ));
+                unless $*IMPLICIT {
                     $BLOCK[0].push(QAST::Op.new(
                         :op('bind'),
-                        QAST::Var.new( :name('$_'), :scope('lexical'), :decl('var') ),
+                        QAST::Var.new( :name('$_'), :scope('lexical') ),
                         QAST::Op.new( :op('getlexouter'), QAST::SVal.new( :value('$_') ) )
                     ));
                 }