This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #113926] fix a hash randomization bug
authorTony Cook <tony@develop-help.com>
Mon, 24 Jun 2013 03:19:44 +0000 (13:19 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 24 Jun 2013 03:19:44 +0000 (13:19 +1000)
Through sheer sloppiness I managed to avoid actually running the new
test, sorry for the noise.

it compared [ keys %hasha ] and [ keys %hashb ] resulting in failure.

ext/Pod-Html/t/anchorify.t

index 96b7e14..d7b1808 100644 (file)
@@ -37,8 +37,8 @@ my %expected = map { $_ => 1 } qw(
     has_hyphen_and_space
 );
 is_deeply(
-    [ keys %heads ],
-    [ keys %expected ],
+    \%heads,
+    \%expected,
     "Got expected POD heads"
 );