sub SafestUndumper {
    my $s = Safe->new;
    $s->permit_only(
        "anonlist",
        "anonhash",
        "pushmark",

# perlcall says "PUSHMARK macro tells Perl to make a mental note of th
+e current stack pointer."
        "const",
        "undef",
        "list",
        "lineseq",
        "padany",
        "leaveeval",    # needed for Safe to operate, is safe without 
+entereval
    );
    $s->reval(@_);
}
[download]