Thank you for your input, I'll do the request soon. (There is also a need to roll back few changes that were intended to provide better alloc/disposal of tcl bindings for code refs, scalar ref etc, or may be finish these, after cleaning bit rot.)
Regards, Vadim. ________________________________ From: Eric Windisch [mailto:e...@grokthis.net] Sent: Sunday, January 15, 2012 7:09 AM To: Konovalov, Vadim (Vadim)** CTR ** Cc: Jeff Hobbs; tcltk@perl.org Subject: Re: Tcl_CreateSlave 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.
