Sink in CACTH and CONTROL blocks.

rakudo · Dec 10, 2012 · 5886931 · 5886931
1 parent cd1ab4c
commit 5886931
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -5282,6 +5282,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
         else {
             my $prev_content := QAST::Stmts.new();
             $prev_content.push($handler<past_block>.shift()) while +@($handler<past_block>);
+            $prev_content.push(QAST::Var.new( :name('Nil'), :scope('lexical') ));
             $handler<past_block>.push(QAST::Op.new(
                 :op('handle'),
                 $prev_content,