diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-05-20 09:28:51 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-05-20 09:46:09 -0700 |
| commit | 09dcfa7d12b25dc89ac02dc0f060ecc80d0335b2 (patch) | |
| tree | d09aa95bb29b86ce43c221a93bcd1cfb5e8a0ac8 /dist/B-Deparse | |
| parent | f142daa8b17269bfbcac6c027b3bb378d3f1368f (diff) | |
| download | perl-09dcfa7d12b25dc89ac02dc0f060ecc80d0335b2.tar.gz | |
[perl #91008] Deparse doesn't like each $ref
Diffstat (limited to 'dist/B-Deparse')
| -rw-r--r-- | dist/B-Deparse/Deparse.pm | 1 | ||||
| -rw-r--r-- | dist/B-Deparse/t/deparse.t | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 169096c999..be2406f991 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -1659,6 +1659,7 @@ sub pp_chr { maybe_targmy(@_, \&unop, "chr") } sub pp_each { unop(@_, "each") } sub pp_values { unop(@_, "values") } sub pp_keys { unop(@_, "keys") } +{ no strict 'refs'; *{"pp_r$_"} = *{"pp_$_"} for qw< keys each values >; } sub pp_boolkeys { # no name because its an optimisation op that has no keyword unop(@_,""); diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index c3301a50db..dcb18baab6 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -697,3 +697,8 @@ tr/\x{345}/\x{370}/; #### # [perl #90898] glob('a,'); +#### +# [perl #91008] +each $@; +keys $~; +values $!; |