diff options
| author | dgp <dgp@noemail.net> | 2001-09-10 21:06:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2001-09-10 21:06:55 (GMT) |
| commit | fab5c5d89d08171a0194c37b8e37cb51c3cc8a36 (patch) | |
| tree | 865f1fef1ed44402561a1ded8c8a389b880856f0 /generic/tclInitScript.h | |
| parent | 3f9473fbf04e0e2e1104624add5058015d100340 (diff) | |
| download | tcl-fab5c5d89d08171a0194c37b8e37cb51c3cc8a36.zip tcl-fab5c5d89d08171a0194c37b8e37cb51c3cc8a36.tar.gz tcl-fab5c5d89d08171a0194c37b8e37cb51c3cc8a36.tar.bz2 | |
* Removed
vestiges of Tcl's old initialization from registry variables.
[Bug 455645]
FossilOrigin-Name: 972b600b838f22511857de303f6833a5734c1e32
Diffstat (limited to 'generic/tclInitScript.h')
| -rw-r--r-- | generic/tclInitScript.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclInitScript.h b/generic/tclInitScript.h index 1d8ffe0..0d52623 100644 --- a/generic/tclInitScript.h +++ b/generic/tclInitScript.h @@ -8,7 +8,7 @@ * Copyright (c) 1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclInitScript.h,v 1.12 1999/08/19 02:59:10 hobbs Exp $ + * RCS: @(#) $Id: tclInitScript.h,v 1.13 2001/09/10 21:06:55 dgp Exp $ */ /* @@ -49,8 +49,10 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\ if {[info exists env(TCL_LIBRARY)]} {\n\ lappend dirs $env(TCL_LIBRARY)\n\ }\n\ - lappend dirs $tclDefaultLibrary\n\ - unset tclDefaultLibrary\n\ + catch {\n\ + lappend dirs $tclDefaultLibrary\n\ + unset tclDefaultLibrary\n\ + }\n\ set dirs [concat $dirs $tcl_libPath]\n\ }\n\ foreach i $dirs {\n\ |