> On 19/03/2010 5:09 PM, Eric Windisch wrote: > > I feel it would be particularly useful to be able to create slave > > interpreters from Perl. This patch includes this capability > and allows > > sandbox (MakeSafe) execution of Tcl code. > > Patch seems to have been stripped, but can be found at > https://rt.cpan.org/Public/Bug/Display.html?id=55717. > > > Usage as follows: > > > > use Tcl; > > my $interp=Tcl::new(); > > # Arbitrary name and a boolean 'safe' argument > > my $safeslave=$interp->CreateSlave('name',1); > > open (my $fh, 'script.tcl'); > > $safeslave->EvalFileHandle($fh); > > > > Speaking to Jeff, he argued perhaps changing the name of > the method and > > accepting a hash argument: > > <tclguy> my $interp = new Tcl; > > <tclguy> my $safeslave = $interp->interp_create(-safe => 1); >
I am fine with the code, especially if it will be updated in current repository, which is 'tcl.pm' at github.com as we remember :) Regards, Vadim.
