Hi ,
I am relatively new to perl. I have a question regarding the
Safe module in perl . I understand that this module is used to
run perl scripts in a safe mode wherein one can restrict the
script to use some certain perl operators/functions only .
I did try out a sample script and found out that it does'nt
seem to work . Can anyone please help me ?
I am attaching the perl script which I wrote :
sub test_func {
print "In test_func\n";
}
use Expect;
use IO::Tty;
use IO::Pty;
use Safe;
$Expect::Debug=1;
$compartment = new Safe;
$compartment->deny(qw(print));
$compartment->reval(&test_func);
This is just a sample script wherein I am trying to deny
the print function. But the print works.
Thanks in advance for your help
-Basavaraj
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
