This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo in change#3400
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 12 May 1999 10:42:06 +0000 (10:42 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 12 May 1999 10:42:06 +0000 (10:42 +0000)
p4raw-link: @3400 on //depot/perl: c8c62db702b7e7b28e0c00febb0781eff4341baf

p4raw-id: //depot/perl@3402

ext/B/B/Deparse.pm

index 5543a7b..e00bd22 100644 (file)
@@ -970,7 +970,7 @@ sub pp_refgen {
                 # The @a in \(@a) isn't in ref context, but only when the
                 # parens are there.
                 return "\\(" . $self->deparse($kid->sibling, 1) . ")";
                 # The @a in \(@a) isn't in ref context, but only when the
                 # parens are there.
                 return "\\(" . $self->deparse($kid->sibling, 1) . ")";
-            } elsif ($kid->sibling->ppaddr eq 'pp_entersub') {
+            } elsif ($sib_ppaddr eq 'pp_entersub') {
                 my $text = $self->deparse($kid->sibling, 1);
                 # Always show parens for \(&func()), but only with -p otherwise
                 $text = "($text)" if $self->{'parens'}
                 my $text = $self->deparse($kid->sibling, 1);
                 # Always show parens for \(&func()), but only with -p otherwise
                 $text = "($text)" if $self->{'parens'}