Re: Data::Dumper and eval

[perlmonkey]

Checking for $@ after both evals will reveal:
Global symbol "$VAR1" requires explicit package name at (eval 1) line 1.

To fix you can prefix your eval'd code with a 'my':

use strict;
use Data::Dumper;

{
    my $hashref = {
        "aaa"   =>  1,
        "bbb"   =>  2,
        "ccc"   =>  3,
    };

    print "hashref : " . Dumper($hashref);

    my $dumped = Dumper($hashref);
    print "Dumped: $dumped\n";

    my $restored = eval "my $dumped";
    warn "\$@ = $@\n";
    print "restored: " . Dumper($restored);

    my $test_2 = eval("my ".Dumper($hashref));
    warn "\$@ = $@\n";

    print "test_2: " . Dumper($test_2);
}