summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorwelch <welch>1998-08-07 11:02:16 (GMT)
committerwelch <welch>1998-08-07 11:02:16 (GMT)
commit75994376b6cf93b85003527389dbf97b1cde3067 (patch)
tree46aae7dd92e39d66f396cf905d442377c091154f /generic
parentf8d54fd42ea91003756a763b1cb0d06f35e425f3 (diff)
downloadtcl-75994376b6cf93b85003527389dbf97b1cde3067.zip
tcl-75994376b6cf93b85003527389dbf97b1cde3067.tar.gz
tcl-75994376b6cf93b85003527389dbf97b1cde3067.tar.bz2
Nuked / from file paths
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInitScript.h10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclInitScript.h b/generic/tclInitScript.h
index 4c76bf5..a2601b7 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.
*
- * SCCS: %Z% $Id: tclInitScript.h,v 1.5 1998/08/06 15:22:54 welch Exp $
+ * SCCS: %Z% $Id: tclInitScript.h,v 1.6 1998/08/07 11:02:49 welch Exp $
*/
/*
@@ -78,8 +78,8 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
lappend dirs $tclDefaultLibrary\n\
unset tclDefaultLibrary\n\
set parentDir [file dirname [file dirname [info nameofexecutable]]]\n\
- lappend dirs [file join $parentDir lib/tcl$tcl_version]\n\
- lappend dirs [file join [file dirname $parentDir] lib/tcl$tcl_version]\n\
+ lappend dirs [file join $parentDir lib tcl$tcl_version]\n\
+ lappend dirs [file join [file dirname $parentDir] lib tcl$tcl_version]\n\
lappend dirs [file join $parentDir library]\n\
lappend dirs [file join [file dirname $parentDir] library]\n\
if {[string match {*[ab]*} $tcl_patchLevel]} {\n\
@@ -87,8 +87,8 @@ static char initScript[] = "if {[info proc tclInit]==\"\"} {\n\
} else {\n\
set ver $tcl_version\n\
}\n\
- lappend dirs [file join [file dirname $parentDir] tcl$ver/library]\n\
- lappend dirs [file join [file dirname [file dirname $parentDir]] tcl$ver/library]\n\
+ lappend dirs [file join [file dirname $parentDir] tcl$ver library]\n\
+ lappend dirs [file join [file dirname [file dirname $parentDir]] tcl$ver library]\n\
}\n\
foreach i $dirs {\n\
set tcl_library $i\n\