Perlito5 - parser - cleanup debug

fglock · May 2, 2016 · 643aa4a · 643aa4a
1 parent 16ecb30
commit 643aa4a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -13184,9 +13184,6 @@
             my $self = $_[0];
             my @sig;
             my @parts;
-            if (my $node = $self->maybe_rewrite_statevars()) {
-                return $node->emit_perl5(@_[1 .. $#_])
-            }
             defined($self->{'sig'}) && push(@sig, ['paren' => '(', ['bareword' => $self->{'sig'}]]);
             if (defined($self->{'block'})) {
                 push(@parts, Perlito5::Perl5::emit_perl5_block($self->{'block'}->{'stmts'}));

diff --git a/src5/lib/Perlito5/Perl5/Emitter.pm b/src5/lib/Perlito5/Perl5/Emitter.pm
@@ -485,9 +485,10 @@ package Perlito5::AST::Sub;
         my $self = $_[0];
         my @sig;
         my @parts;
-        if (my $node = $self->maybe_rewrite_statevars()) {
-            return $node->emit_perl5(@_[1..$#_]);
-        }
+        # Note: enable this to perform state() vars macro substitution
+        # if (my $node = $self->maybe_rewrite_statevars()) {
+        #     return $node->emit_perl5(@_[1..$#_]);
+        # }
         push @sig, [ paren => '(', [ bareword => $self->{sig} ] ]
             if defined $self->{sig};