This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #91008] Deparse doesn't like each $ref
authorFather Chrysostomos <sprout@cpan.org>
Fri, 20 May 2011 16:28:51 +0000 (09:28 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 20 May 2011 16:46:09 +0000 (09:46 -0700)
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t

index 169096c..be2406f 100644 (file)
@@ -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(@_,"");
index c3301a5..dcb18ba 100644 (file)
@@ -697,3 +697,8 @@ tr/\x{345}/\x{370}/;
 ####
 # [perl #90898]
 glob('a,');
+####
+# [perl #91008]
+each $@;
+keys $~;
+values $!;