From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 12 May 1999 10:42:06 +0000 (+0000)
Subject: typo in change#3400
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=863bc19c9228c8c8a05b18984696adb2abaa38b8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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'}