[Starkit] Tclkit 8.4.11

Jean-Claude Wippler jcw at equi4.com
Thu Sep 8 23:30:36 CEST 2005


Jeff Hobbs wrote:

> I see the problem quite clearly thanks to your logging.
[...]
> JCW - I think the following may be more appropriate:
>
> "proc source file {\n"
> "    set old [info script]\n"
> "    info script $file\n"
> "    set fid [open $file]\n"
> "    set data [read $fid]\n"
> "    close $fid\n"
> "    set code [catch {uplevel 1 $data} res]\n"
> "    info script $old\n"
> "    if {$code == 2} { set code 0 }\n"
> "    return -code $code $res\n"
> "}\n"

Thanks for chasing this and offering a solution, Engelbert & Jeff.

I've applied that change to the sources and to all generated binaries.
The updated tclkit binaries can be identified as follows:

$ tclkit
% set vfs::tclkit_version
200509.002
%

-jcw



More information about the Starkit mailing list