On 3/16/2020 4:09 AM, Christopher Chavez wrote:
That page mentioned the Tcl exit command, which I've never used
from Perl. Adding it completely prevents the error:
use Tcl;
my $i = new Tcl;
$i->Init;
$i->Eval(<<'EOS');
package require Tk
package require Tktable
destroy .
exit
EOS
But should things like destroying the root window and Tcl exit really
be necessary to prevent errors during normal usage?
Actually, doing $i->Eval('exit') makes the entire program exit
immediately without letting Perl continue execution or perform
its own exit, so maybe it's not a good idea to use it.
Christopher A. Chavez
