http://www.perlmonks.org?node_id=1030990


in reply to Unexpected Data::Dumper results

Before dumping the original value, you should have set
$Data::Dumper::Purity = 1;

It leads to the following output:

$VAR1 = { 'shared' => \'true', 'parents' => [ { 'isRoot' => do{my $o} } ] }; $VAR1->{'parents'}[0]{'isRoot'} = $VAR1->{'shared'};
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Unexpected Data::Dumper results
by tqisjim (Beadle) on Apr 27, 2013 at 18:04 UTC
    Thanks! Just what I needed!