Perlito5 - perl5 - pretty-printer - number, apply (fix)

fglock · Oct 6, 2013 · f861f2b · f861f2b
1 parent 413dc0d
commit f861f2b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12355,7 +12355,7 @@ package Perlito5::AST::Apply;
     };
     sub Perlito5::AST::Apply::emit_perl5_2 {
         my $self = $_[0];
-        if (ref($code)) {
+        if (ref($self->{'code'})) {
             return ['op', 'infix:<->>', $self->{'code'}->emit_perl5_2(), $self->emit_perl5_2_args()]
         };
         if ($Perlito5::Perl5::PrettyPrinter::op{$self->{'code'}}) {

diff --git a/src5/lib/Perlito5/Perl5/Emitter2.pm b/src5/lib/Perlito5/Perl5/Emitter2.pm
@@ -209,7 +209,7 @@ package Perlito5::AST::Apply;
     }
     sub emit_perl5_2 {
         my $self = $_[0];   
-        if (ref $code) {
+        if (ref $self->{code}) {
             return [ op => 'infix:<->>', $self->{code}->emit_perl5_2(), $self->emit_perl5_2_args() ];
         }
         if ( $Perlito5::Perl5::PrettyPrinter::op{ $self->{code} } ) {