From d6686524f4a322ce27e0eebf255af3fb3431796c Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Mon, 6 Nov 2006 00:57:04 -0800
Subject: Re: [PATCH] [perl #40668] Data::Dumper fails to dump all hash keys
 when itertaor is not at start From: "Jerry D. Hedden" <jdhedden@yahoo.com>
 Message-ID: <20061106165704.939.qmail@web30214.mail.mud.yahoo.com>

p4raw-id: //depot/perl@29224
---
 ext/Data/Dumper/Dumper.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'ext/Data/Dumper/Dumper.pm')

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index 44b802365d..4efc17a90d 100644
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.121_10';
+$VERSION = '2.121_11';
 
 #$| = 1;
 
@@ -231,6 +231,11 @@ sub Dumpperl {
       $name = "\$" . $s->{varname} . $i;
     }
 
+    # Ensure hash iterator is reset
+    if (ref($val) eq 'HASH') {
+        keys(%$val);
+    }
+
     my $valstr;
     {
       local($s->{apad}) = $s->{apad};
-- 
cgit v1.2.1