From b7115edc53952002e20d0e9e54cb4e5b7d4dd5de Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Tue, 26 Oct 2004 19:44:16 +0000 Subject: * 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. --- ChangeLog | 7 +++++++ library/tm.tcl | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b63d60e..87667ef 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-10-26 Andreas Kupries + + * 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 * 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"} { -- cgit v0.12