Perlito5 - create $Perlito5::PHASE

fglock · Oct 14, 2014 · 9b70863 · 9b70863
1 parent 89bf744
commit 9b70863
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -5461,6 +5461,7 @@ sub Perlito5::Grammar::Block::term_block {
             if (ref($v) eq 'Perlito5::AST::Lit::Block') {
                 if ($block_name eq 'BEGIN') {
                     local $Perlito5::PKG_NAME = $Perlito5::PKG_NAME;
+                    local $Perlito5::PHASE = 'BEGIN';
                     eval(substr($str, $block_start, $m->{'to'} - $block_start));
                     $m->{'capture'} = Perlito5::AST::Apply->new('code' => 'undef', 'namespace' => '', 'arguments' => [])
                 }

diff --git a/src5/lib/Perlito5/Grammar/Block.pm b/src5/lib/Perlito5/Grammar/Block.pm
@@ -81,6 +81,7 @@ sub term_block {
                 if ($block_name eq 'BEGIN') {
                     # say "BEGIN $block_start ", $m->{to}, "[", substr($str, $block_start, $m->{to} - $block_start), "]";
                     local $Perlito5::PKG_NAME = $Perlito5::PKG_NAME;
+                    local $Perlito5::PHASE = 'BEGIN';
                     eval substr($str, $block_start, $m->{to} - $block_start);
                     $m->{capture} = 
                         Perlito5::AST::Apply->new(