From 07be00e85aff72fb49e703e1cba70be0aec51d8a Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 24 Jun 2013 13:19:44 +1000
Subject: [PATCH] [perl #113926] fix a hash randomization bug

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 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/Pod-Html/t/anchorify.t b/ext/Pod-Html/t/anchorify.t
index 96b7e14..d7b1808 100644
--- a/ext/Pod-Html/t/anchorify.t
+++ b/ext/Pod-Html/t/anchorify.t
@@ -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"
 );
 
-- 
2.7.4