diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2006-08-26 00:35:33 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-27 15:51:25 +0000 |
| commit | 3b5b112528953358a7e9f7cf245ff713d96cd972 (patch) | |
| tree | 61562477e42d8dddb155213346a7e68ecd7fc728 | |
| parent | 9c6390c7ad8dcac609f8f9590b6756f434a7b024 (diff) | |
| download | perl-3b5b112528953358a7e9f7cf245ff713d96cd972.tar.gz | |
Change #24364 broke Data::Dumper::Seen()
Message-ID: <20060825223533.04efdf2d@r2d2>
p4raw-id: //depot/perl@28762
| -rw-r--r-- | ext/Data/Dumper/Dumper.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm index b7fe1d61e7..dce243d8c5 100644 --- a/ext/Data/Dumper/Dumper.pm +++ b/ext/Data/Dumper/Dumper.pm @@ -9,7 +9,7 @@ package Data::Dumper; -$VERSION = '2.121_08'; +$VERSION = '2.121_09'; #$| = 1; @@ -119,6 +119,7 @@ sub format_refaddr { sub Seen { my($s, $g) = @_; if (defined($g) && (ref($g) eq 'HASH')) { + init_refaddr_format(); my($k, $v, $id); while (($k, $v) = each %$g) { if (defined $v and ref $v) { |