diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2006-11-06 00:57:04 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-07 11:16:54 +0000 |
| commit | d6686524f4a322ce27e0eebf255af3fb3431796c (patch) | |
| tree | e33811896f159f8c319eeebeb6277d4ec082fe19 /ext/Data/Dumper/Dumper.pm | |
| parent | a0bda3fbbd18086a4b6043f125d2b181ebb3ea58 (diff) | |
| download | perl-d6686524f4a322ce27e0eebf255af3fb3431796c.tar.gz | |
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
Diffstat (limited to 'ext/Data/Dumper/Dumper.pm')
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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}; |