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 (file)
--- 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 {