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
[perl5.git] / dist / B-Deparse / t / deparse.t
index c3301a5..dcb18ba 100644 (file)
@@ -697,3 +697,8 @@ tr/\x{345}/\x{370}/;
 ####
 # [perl #90898]
 glob('a,');
+####
+# [perl #91008]
+each $@;
+keys $~;
+values $!;