summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2004-10-26 19:44:16 (GMT)
committerandreas_kupries <akupries@shaw.ca>2004-10-26 19:44:16 (GMT)
commitb7115edc53952002e20d0e9e54cb4e5b7d4dd5de (patch)
tree4ba83040c8d2b1925501d8f4222eb407d1648c0f
parent1dbc1efa665ec11cded1d378486be7187e155b44 (diff)
downloadtcl-b7115edc53952002e20d0e9e54cb4e5b7d4dd5de.zip
tcl-b7115edc53952002e20d0e9e54cb4e5b7d4dd5de.tar.gz
tcl-b7115edc53952002e20d0e9e54cb4e5b7d4dd5de.tar.bz2
* library/tm.tcl (::tcl::tm::Defaults): Added a second [file
dirname] around the location of the executable. This fixes [Tcl SF Bug 1038705]. Instable of a bogus "foo/bin/lib" we now have the correct "foo/lib" as a base path for modules.
-rw-r--r--ChangeLog7
-rw-r--r--library/tm.tcl2
2 files changed, 8 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index b63d60e..87667ef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-10-26 Andreas Kupries <andreask@activestate.com>
+
+ * library/tm.tcl (::tcl::tm::Defaults): Added a second [file
+ dirname] around the location of the executable. This fixes [Tcl
+ SF Bug 1038705]. Instable of a bogus "foo/bin/lib" we now have
+ the correct "foo/lib" as a base path for modules.
+
2004-10-26 Don Porter <dgp@users.sourceforge.net>
* tests/basic.test: Added missing constraints.
diff --git a/library/tm.tcl b/library/tm.tcl
index 37f03cb..cfed444 100644
--- a/library/tm.tcl
+++ b/library/tm.tcl
@@ -316,7 +316,7 @@ proc ::tcl::tm::Defaults {} {
# something other than [::list] in this namespace.
roots [::list \
[file dirname [info library]] \
- [file join [file dirname $exe] lib] \
+ [file join [file dirname [file dirname $exe]] lib] \
]
if {$tcl_platform(platform) eq "windows"} {