typo in change#3400

p4raw-link: @3400 on //depot/perl: c8c62db702b7e7b28e0c00febb0781eff4341baf

p4raw-id: //depot/perl@3402

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 5543a7b..e00bd22 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -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) . ")";
-            } 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'}