diff options
| author | Jeremy Madea <jmadea@inktomi.com> | 2001-03-29 04:05:02 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-30 02:29:37 +0000 |
| commit | d5ae42cc2eafb092305612a6112876537ed48621 (patch) | |
| tree | 45bcd84f75fa654240892d9f0c6a9e5191d86849 | |
| parent | d2f5bb607f1fc65bd0b35eccba6235d4631fa3af (diff) | |
| download | perl-d5ae42cc2eafb092305612a6112876537ed48621.tar.gz | |
B::Deparse precedence bug. (Patch included.)
Message-ID: <20010329120502.A24881@dr.inktomi.com>
p4raw-id: //depot/perl@9462
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index b0a5eaeb38..5629c17607 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2408,7 +2408,9 @@ sub pp_const { # return $self->const_sv($op)->PV; # } my $sv = $self->const_sv($op); - return const($sv); +# return const($sv); + my $c = const $sv; + return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c; } sub dq { |