In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/09dcfa7d12b25dc89ac02dc0f060ecc80d0335b2?hp=f142daa8b17269bfbcac6c027b3bb378d3f1368f>
- Log -----------------------------------------------------------------
commit 09dcfa7d12b25dc89ac02dc0f060ecc80d0335b2
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri May 20 09:28:51 2011 -0700
[perl #91008] Deparse doesn't like each $ref
-----------------------------------------------------------------------
Summary of changes:
dist/B-Deparse/Deparse.pm | 1 +
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 169096c..be2406f 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 c3301a5..dcb18ba 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 $!;
--
Perl5 Master Repository
