This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse: detect hh changes properly
[perl5.git] / dist / B-Deparse / t / deparse.t
index d47498c..a4284ef 100644 (file)
@@ -809,3 +809,11 @@ BEGIN { $^H{'foo'} = undef; }
 }
 BEGIN { $^H{q[']} = '('; }
 print $_;
+####
+# hint hash changes that serialise the same way with sort %hh
+BEGIN { $^H{'a'} = 'b'; }
+{
+ BEGIN { $^H{'b'} = 'a'; delete $^H{'a'}; }
+ print $_;
+}
+print $_;