diff options
| author | andreas_kupries <akupries@shaw.ca> | 2004-10-26 19:44:16 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2004-10-26 19:44:16 (GMT) |
| commit | b7115edc53952002e20d0e9e54cb4e5b7d4dd5de (patch) | |
| tree | 4ba83040c8d2b1925501d8f4222eb407d1648c0f /library | |
| parent | 1dbc1efa665ec11cded1d378486be7187e155b44 (diff) | |
| download | tcl-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.
Diffstat (limited to 'library')
| -rw-r--r-- | library/tm.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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"} { |