diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 05:53:56 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 21:32:33 -0700 |
| commit | 42b824d2b554088191c83ebebdc0d1598f5a4d9a (patch) | |
| tree | ba162c356b1b66909a2cf66217f311d6b560a784 /dist | |
| parent | 1b38c28e639da91d4507d4d1cebac12fec9e82ef (diff) | |
| download | perl-42b824d2b554088191c83ebebdc0d1598f5a4d9a.tar.gz | |
Avoid multiple $op->private calls in B::Deaprse::pp_trans
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 51deed8f15..f40ae96747 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; } |