From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 25 Aug 2006 22:35:33 +0000 (+0200)
Subject: Change #24364 broke Data::Dumper::Seen()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b5b112528953358a7e9f7cf245ff713d96cd972;p=p5sagit%2Fp5-mst-13.2.git

Change #24364 broke Data::Dumper::Seen()
Message-ID: <20060825223533.04efdf2d@r2d2>

p4raw-id: //depot/perl@28762
---

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index b7fe1d6..dce243d 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) {