From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 2 Nov 2010 12:53:56 +0000 (-0700)
Subject: Avoid multiple $op->private calls in B::Deaprse::pp_trans
X-Git-Tag: accepted/trunk/20130322.191538~6958
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=42b824d2b554088191c83ebebdc0d1598f5a4d9a;p=platform%2Fupstream%2Fperl.git

Avoid multiple $op->private calls in B::Deaprse::pp_trans
---

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index 51deed8..f40ae96 100644
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -4093,10 +4093,11 @@ sub pp_trans {
 	($from, $to) = tr_decode_utf8($op->sv->RV, $op->private);
     }
     my $flags = "";
-    $flags .= "c" if $op->private & OPpTRANS_COMPLEMENT;
-    $flags .= "d" if $op->private & OPpTRANS_DELETE;
+    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 "";
-    $flags .= "s" if $op->private & OPpTRANS_SQUASH;
+    $flags .= "s" if $priv_flags & OPpTRANS_SQUASH;
     return "tr" . double_delim($from, $to) . $flags;
 }