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 (file)
--- 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) {