summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorwelch <welch>1998-10-23 22:22:02 (GMT)
committerwelch <welch>1998-10-23 22:22:02 (GMT)
commitd92d1894eae882c8021739f066fa5266e7912e4c (patch)
treed3a70983448a80d99a6cb0738fbfc95974a4ef31 /generic
parent8fd77f6049dc41f6accfdad45a5a35f9e4d32045 (diff)
downloadtcl-d92d1894eae882c8021739f066fa5266e7912e4c.zip
tcl-d92d1894eae882c8021739f066fa5266e7912e4c.tar.gz
tcl-d92d1894eae882c8021739f066fa5266e7912e4c.tar.bz2
Fixed a typo in tcl_findLibrary, and fixed the logic that ensures
the parent directory of tcl_library is on the auto_path. Added a comment to init.tcl about how auto_path is initialized.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInitScript.h7
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclInitScript.h b/generic/tclInitScript.h
index a847872..25ce3a9 100644
--- a/generic/tclInitScript.h
+++ b/generic/tclInitScript.h
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInitScript.h,v 1.7 1998/09/14 18:40:00 stanton Exp $
+ * RCS: @(#) $Id: tclInitScript.h,v 1.8 1998/10/23 22:22:15 welch Exp $
*/
/*
@@ -56,7 +56,7 @@
* down inside unix/arch directory
*
* The first directory on this path that contains a valid init.tcl script
- * will be appended to tcl_pkgPath and set as the value of tcl_library.
+ * will be set as the value of tcl_library.
*
* Note that this entire search mechanism can be bypassed by defining an
* alternate tclInit procedure before calling Tcl_Init().
@@ -65,7 +65,7 @@
static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
proc tclInit {} {\n\
global tcl_library tcl_version tcl_patchLevel errorInfo\n\
- global tcl_pkgPath env tclDefaultLibrary\n\
+ global env tclDefaultLibrary\n\
rename tclInit {}\n\
set errors {}\n\
set dirs {}\n\
@@ -95,7 +95,6 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
set tclfile [file join $i init.tcl]\n\
if {[file exists $tclfile]} {\n\
if {![catch {uplevel #0 [list source $tclfile]} msg]} {\n\
- lappend tcl_pkgPath [file dirname $i]\n\
return\n\
} else {\n\
append errors \"$tclfile: $msg\n$errorInfo\n\"\n\