Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

allowing Data::Dumper within

by gideondsouza (Pilgrim)
on Feb 12, 2013 at 08:25 UTC ( #1018315=perlquestion: print w/replies, xml ) Need Help??
gideondsouza has asked for the wisdom of the Perl Monks concerning the following question:

So I use, to allow and deny certain operations. When I use Data::Dumper I get:
Unsafe code detected: 'eval "string"' trapped by operation mask at /usr/.../ line 160 +. Compilation failed in require at /usr/../Data/ line 22. BEGIN failed--compilation aborted at /usr/../Data/ line 22.
This is what my Safe permit/denies look like:
$compartment->deny(qw(:base_io :ownprocess :subprocess :filesys_read : +sys_db :filesys_open :filesys_write :dangerous)); $compartment->permit(qw(print say pack unpack require caller));

Question: What should I allow to make Data::Dumper work? I tried permit("eval") but it says no operator recognized

Note, this is NOT production code, this is a learning project I'm working on.

Replies are listed 'Best First'.
Re: allowing Data::Dumper within
by Anonymous Monk on Feb 12, 2013 at 09:17 UTC

      Ah! I've tried entereval and leaveeval and it still gives me the exact same message! :(

      How should I use share_from, I don't quite understand what it does!

        share() allows you to specify which global variables in your program that you want your compartment to be able to see. However, you can only specify simple names, like '$x', i.e. names from the current namespace.

        share_from() allows you to specify more complex variable names, i.e. variables from a different namespace, e.g. package X::Y::Z.

        However, I've not succeeded in getting either to work. If you do, please post an example.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1018315]
Approved by kcott
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2018-11-15 06:04 GMT
Find Nodes?
    Voting Booth?
    My code is most likely broken because:

    Results (180 votes). Check out past polls.