From: Jeremy Madea <jmadea@inktomi.com>
Date: Thu, 29 Mar 2001 12:05:02 +0000 (-0800)
Subject: B::Deparse precedence bug. (Patch included.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5ae42cc2eafb092305612a6112876537ed48621;p=p5sagit%2Fp5-mst-13.2.git

B::Deparse precedence bug. (Patch included.)
Message-ID: <20010329120502.A24881@dr.inktomi.com>

p4raw-id: //depot/perl@9462
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index b0a5eae..5629c17 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 {