Re: [Perl-unix-users] REUSED ADDRESS in Data::dumper

[Andy_Bach]

>From the Dumpvalue pm 
  # Check for reused addresses
  if (ref $v) {
    my $val = $v;
    { no strict 'refs';
      $val = &{'overload::StrVal'}($v)
                 if defined %overload:: and defined &{'overload::StrVal'};
    }
    ($address) = $val =~ /(0x[0-9a-f]+)\)$/ ;
    if (!$self->{dumpReused} && defined $address) {
      $address{$address}++ ;
      if ( $address{$address} > 1 ) {
                 print "${sp}-> REUSED_ADDRESS\n" ;
                 return ;
      }
    }

So, maybe a location w/ more than one pointer/ref to it?

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

"If you don't say anything, you won't be called on to repeat it" 
Calvin Coolidge
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs