From: Stephen McCamant <smcc@mit.edu>
Date: Wed, 8 Feb 2006 17:48:49 +0000 (-0800)
Subject: [perl #38346] [PATCH] Re: B::Deparse's bug?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cfaba46925323ddb2ac7bb023d3c916e0d3b135e;p=p5sagit%2Fp5-mst-13.2.git

[perl #38346] [PATCH] Re: B::Deparse's bug?
Message-ID: <17386.40833.64309.454938@conquest.OCF.Berkeley.EDU>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 4f87b2b..bc7e16d 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -20,7 +20,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
          CVf_METHOD CVf_LOCKED CVf_LVALUE CVf_ASSERTION
 	 PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_SKIPWHITE
 	 PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED);
-$VERSION = 0.73;
+$VERSION = 0.74;
 use strict;
 use vars qw/$AUTOLOAD/;
 use warnings ();
@@ -2504,7 +2504,7 @@ sub pp_cond_expr {
 	    (is_scope($false) || is_ifelse_cont($false))
 	    and $self->{'expand'} < 7) {
 	$cond = $self->deparse($cond, 8);
-	$true = $self->deparse($true, 8);
+	$true = $self->deparse($true, 6);
 	$false = $self->deparse($false, 8);
 	return $self->maybe_parens("$cond ? $true : $false", $cx, 8);
     }