From b031d0e637375b49adae9215b2d1bc2bdfc75232 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 6 Nov 2010 00:06:51 -0700 Subject: [PATCH] Eliminate a few more $op->private calls in Deparse --- dist/B-Deparse/Deparse.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index ba5fd01..4241505 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -4088,16 +4088,16 @@ sub pp_trans { my($op, $cx) = @_; my($from, $to); my $class = class($op); + my $priv_flags = $op->private; if ($class eq "PVOP") { - ($from, $to) = tr_decode_byte($op->pv, $op->private); + ($from, $to) = tr_decode_byte($op->pv, $priv_flags); } elsif ($class eq "PADOP") { ($from, $to) - = tr_decode_utf8($self->padval($op->padix)->RV, $op->private); + = tr_decode_utf8($self->padval($op->padix)->RV, $priv_flags); } else { # class($op) eq "SVOP" - ($from, $to) = tr_decode_utf8($op->sv->RV, $op->private); + ($from, $to) = tr_decode_utf8($op->sv->RV, $priv_flags); } my $flags = ""; - my $priv_flags = $op->private; $flags .= "c" if $priv_flags & OPpTRANS_COMPLEMENT; $flags .= "d" if $priv_flags & OPpTRANS_DELETE; $to = "" if $from eq $to and $flags eq ""; -- 2.7.4