summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-09-10 21:06:55 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-09-10 21:06:55 (GMT)
commit8008090a71e74c81242dbd6334829a5a5b29fba9 (patch)
tree865f1fef1ed44402561a1ded8c8a389b880856f0 /generic
parent4b150f866b9cf91bb9974d7cd40a817c428d019e (diff)
downloadtcl-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.h8
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\