From cfaba46925323ddb2ac7bb023d3c916e0d3b135e Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Wed, 8 Feb 2006 09:48:49 -0800 Subject: [PATCH] [perl #38346] [PATCH] Re: B::Deparse's bug? Message-ID: <17386.40833.64309.454938@conquest.OCF.Berkeley.EDU> p4raw-id: //depot/perl@27173 --- ext/B/B/Deparse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); } -- 2.7.4