Attachment "1038705.patch" to
ticket [1038705fff]
added by
andreas_kupries
2004-10-27 01:28:33.
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.2339
diff -u -r1.2339 ChangeLog
--- ChangeLog 26 Oct 2004 16:46:12 -0000 1.2339
+++ ChangeLog 26 Oct 2004 18:22:40 -0000
@@ -1,3 +1,10 @@
+2004-10-26 Andreas Kupries <[email protected]>
+
+ * 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 <[email protected]>
* tests/basic.test: Added missing constraints.
Index: library/tm.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tm.tcl,v
retrieving revision 1.2
diff -u -r1.2 tm.tcl
--- library/tm.tcl 25 Oct 2004 15:37:16 -0000 1.2
+++ library/tm.tcl 26 Oct 2004 18:23:01 -0000
@@ -316,7 +316,7 @@
# 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"} {
