This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change #24364 broke Data::Dumper::Seen()
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Fri, 25 Aug 2006 22:35:33 +0000 (00:35 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Aug 2006 15:51:25 +0000 (15:51 +0000)
Message-ID: <20060825223533.04efdf2d@r2d2>

p4raw-id: //depot/perl@28762

ext/Data/Dumper/Dumper.pm

index b7fe1d6..dce243d 100644 (file)
@@ -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) {