note
jlongino
First of all let me say that I know nothing about how
Safe.pm works. However, I was able to run your program
without errors with the following change:
<code>
$codefromoutside='print wget "http://google.com";';
use LWP::Simple ();
sub wget { LWP::Simple::get $_[0] }
use Safe;
$safe=new Safe;
$safe->share(qw(LWP::Simple::get)); ## <- note change here
$safe->reval($codefromoutside);
print $@ if $@;
</code>
This may be inappropriate or not, I don't know, but maybe it
helps.
<P>--Jim
126978
126978