2013-08-15 08:51:20 +00:00
|
|
|
diff --git a/library/auto.tcl b/library/auto.tcl
|
2014-04-24 10:06:48 +00:00
|
|
|
index 02edcc4..cd3b587 100644
|
2013-08-15 08:51:20 +00:00
|
|
|
--- a/library/auto.tcl
|
|
|
|
+++ b/library/auto.tcl
|
2014-04-24 10:06:48 +00:00
|
|
|
@@ -81,6 +81,13 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} {
|
2013-08-15 15:11:04 +00:00
|
|
|
lappend dirs [::${basename}::pkgconfig get scriptdir,runtime]
|
2009-05-18 11:27:39 +00:00
|
|
|
}
|
2008-03-17 14:42:59 +00:00
|
|
|
|
2009-05-18 11:27:39 +00:00
|
|
|
+ # 2a. As a sibling of Tcl's script directory
|
|
|
|
+ if {[catch {
|
|
|
|
+ ::tcl::pkgconfig get scriptdir,runtime
|
|
|
|
+ } value] == 0} {
|
|
|
|
+ lappend dirs [file join [file dirname $value] $basename$version]
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
# 3. Relative to auto_path directories. This checks relative to the
|
|
|
|
# Tcl library as well as allowing loading of libraries added to the
|
|
|
|
# auto_path that is not relative to the core library or binary paths.
|
2013-08-15 08:51:20 +00:00
|
|
|
diff --git a/library/init.tcl b/library/init.tcl
|
2014-04-24 10:06:48 +00:00
|
|
|
index 1ca6413..1aba664 100644
|
2013-08-15 08:51:20 +00:00
|
|
|
--- a/library/init.tcl
|
|
|
|
+++ b/library/init.tcl
|
2014-04-24 10:06:48 +00:00
|
|
|
@@ -47,16 +47,11 @@ if {![info exists auto_path]} {
|
2008-03-17 14:42:59 +00:00
|
|
|
}
|
|
|
|
namespace eval tcl {
|
|
|
|
variable Dir
|
|
|
|
- foreach Dir [list $::tcl_library [file dirname $::tcl_library]] {
|
|
|
|
+ foreach Dir [list $::tcl_library] {
|
|
|
|
if {$Dir ni $::auto_path} {
|
|
|
|
lappend ::auto_path $Dir
|
|
|
|
}
|
|
|
|
}
|
|
|
|
- set Dir [file join [file dirname [file dirname \
|
|
|
|
- [info nameofexecutable]]] lib]
|
|
|
|
- if {$Dir ni $::auto_path} {
|
|
|
|
- lappend ::auto_path $Dir
|
|
|
|
- }
|
|
|
|
catch {
|
|
|
|
foreach Dir $::tcl_pkgPath {
|
|
|
|
if {$Dir ni $::auto_path} {
|
2013-08-15 08:51:20 +00:00
|
|
|
diff --git a/unix/configure.in b/unix/configure.in
|
2014-04-24 10:06:48 +00:00
|
|
|
index 61ad30f..8b327c4 100755
|
2013-08-15 08:51:20 +00:00
|
|
|
--- a/unix/configure.in
|
|
|
|
+++ b/unix/configure.in
|
2013-08-15 15:11:04 +00:00
|
|
|
@@ -883,9 +883,9 @@ if test "$FRAMEWORK_BUILD" = "1" ; then
|
2009-05-18 11:27:39 +00:00
|
|
|
test -z "$TCL_MODULE_PATH" && \
|
|
|
|
TCL_MODULE_PATH="~/Library/Tcl /Library/Tcl /System/Library/Tcl"
|
|
|
|
elif test "$prefix/lib" != "$libdir"; then
|
|
|
|
- TCL_PACKAGE_PATH="${libdir} ${prefix}/lib ${TCL_PACKAGE_PATH}"
|
2014-05-20 13:53:48 +00:00
|
|
|
+ TCL_PACKAGE_PATH="${libdir}/tcl8.6 ${prefix}/share/tcl8.6 ${libdir}/tk8.6 ${prefix}/share/tk8.6 ${TCL_PACKAGE_PATH}"
|
2009-05-18 11:27:39 +00:00
|
|
|
else
|
|
|
|
- TCL_PACKAGE_PATH="${prefix}/lib ${TCL_PACKAGE_PATH}"
|
2014-05-20 13:53:48 +00:00
|
|
|
+ TCL_PACKAGE_PATH="${libdir}/tcl8.6 ${prefix}/share/tcl8.6 ${libdir}/tk8.6 ${prefix}/share/tk8.6 ${TCL_PACKAGE_PATH}"
|
2009-05-18 11:27:39 +00:00
|
|
|
fi
|
2008-03-17 14:42:59 +00:00
|
|
|
|
2009-05-18 11:27:39 +00:00
|
|
|
#--------------------------------------------------------------------
|