[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