diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-12 10:42:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-12 10:42:06 +0000 |
| commit | 863bc19c9228c8c8a05b18984696adb2abaa38b8 (patch) | |
| tree | 9a73f175b26f5491c21caa4d735fe08035aaf141 /ext | |
| parent | c8c62db702b7e7b28e0c00febb0781eff4341baf (diff) | |
| download | perl-863bc19c9228c8c8a05b18984696adb2abaa38b8.tar.gz | |
typo in change#3400
p4raw-link: @3400 on //depot/perl: c8c62db702b7e7b28e0c00febb0781eff4341baf
p4raw-id: //depot/perl@3402
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 5543a7b5e1..e00bd22a89 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'} |