RE: Tcl_CreateSlave

> 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.