I'm sending a pull request via github since this still hasn't been merged. I'll happily modify the patch if there are any unresolved concerns.
-- Eric Windisch On Sunday, March 21, 2010 at 7:26 AM, Konovalov, Vadim (Vadim)** CTR ** wrote: > > 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 (http://github.com) > as we remember :) > > Regards, > Vadim. > >
