p5pRT
commented
24 years ago From scrytch@uswest.net
Created by chuck@abulafia.localdomain
I am trying to use Safe.pm with Template.pm\, with the following:
$s = new Safe("BigHouse"); $s->deny_only(qw(:dangerous)); $s->reval('use Template; my $tmpl = new Template;');
Works perfectly outside a safe. Inside it\, I get the error in my log: [Tue Jun 6 22:59:39 2000] [error] [client 127.0.0.1] FastCGI: server "/opt/apache/htdocs/naga/dtest.fcgi" stderr: Can't locate object method "new" via package "Template" at (eval 11) line 1.
I tried instantiating a template from outside the safe\, sharing it with the safe\, then calling the ->process() method on it. Works if I use it outside the safe\, not in\, can't find the method.
The test case I tried has even more mysterious breakage Created a file Foo.pm\, with the following content:
package Foo;
sub new { my $class = shift; return bless { message => "hello world\n" }\, $class; }
sub hi { my $self = shift; print $self->{message}; } 1;
Then testsafe.pl with this content
#!/usr/bin/perl -w use Safe; use Foo;
my $greeting = new Foo; $greeting->hi;
my $s = new Safe; $s->deny_only(qw(:base_thread)); # deny pretty near nothing $s->reval(q{ print "-- in a safe --\n"; use Foo; my $f = new Foo; print "Is anybody out there?\n"; $f->hi;}); print "-- out of a safe --\n";
I get the following output: hello world -- in a safe -- -- out of a safe --
If I put the constructor in an eval\, it does print the "Is anybody out there?" line\, but not hello world. $@ and $! are not set after the eval.
Two problems here\, really... failing to find package members\, and dying completely silently.
Migrated from rt.perl.org#3335 (status was 'resolved')
Searchable as RT3335$