From d5ae42cc2eafb092305612a6112876537ed48621 Mon Sep 17 00:00:00 2001
From: Jeremy Madea <jmadea@inktomi.com>
Date: Thu, 29 Mar 2001 04:05:02 -0800
Subject: [PATCH] B::Deparse precedence bug. (Patch included.) Message-ID:
 <20010329120502.A24881@dr.inktomi.com>

p4raw-id: //depot/perl@9462
---
 ext/B/B/Deparse.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 {
-- 
2.7.4