diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-10 21:06:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-10 21:06:55 (GMT) |
| commit | 8008090a71e74c81242dbd6334829a5a5b29fba9 (patch) | |
| tree | 865f1fef1ed44402561a1ded8c8a389b880856f0 /generic | |
| parent | 4b150f866b9cf91bb9974d7cd40a817c428d019e (diff) | |
| download | tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.zip tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.tar.gz tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.tar.bz2 | |
* Removed
vestiges of Tcl's old initialization from registry variables.
[Bug 455645]
Diffstat (limited to 'generic')
| -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\ |