diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 20:19:25 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 21:32:34 -0700 |
| commit | bb16bae836f8e26795fbfac1361bf85da0d6a912 (patch) | |
| tree | b71601a317ae4fc0b2f334d106d4d7815a86e708 /dist/B-Deparse | |
| parent | 4eedab498fc909c786cceea9a6f3a70fa4433f9b (diff) | |
| download | perl-bb16bae836f8e26795fbfac1361bf85da0d6a912.tar.gz | |
y///r
Diffstat (limited to 'dist/B-Deparse')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index f40ae96747..bec809ef8f 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -4101,6 +4101,8 @@ sub pp_trans { return "tr" . double_delim($from, $to) . $flags; } +sub pp_transr { &pp_trans . 'r' } + sub re_dq_disambiguate { my ($first, $last) = @_; # Disambiguate "${foo}bar", "${foo}{bar}", "${foo}[1]" |