diff options
| -rw-r--r-- | unix/tclUnixInit.c | 3 | ||||
| -rw-r--r-- | win/tclWinInit.c | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 0001d19..69df49c 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -59,6 +59,9 @@ static char initScript[] = rename tclInit {}\n\ set errors {}\n\ set dirs {}\n\ + if {[info exists env(tcl_pkgLibrary)]} {\n\ + lappend dirs $env(tcl_pkgLibrary)\n\ + }\n\ if [info exists env(TCL_LIBRARY)] {\n\ lappend dirs $env(TCL_LIBRARY)\n\ }\n\ diff --git a/win/tclWinInit.c b/win/tclWinInit.c index be8dbbd..fee2aa7 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -108,6 +108,9 @@ static char *initScript = }\n\ } \n\ set dirs {}\n\ + if {[info exists env(tcl_pkgLibrary)]} {\n\ + lappend dirs $env(tcl_pkgLibrary)\n\ + }\n\ if {[info exists env(TCL_LIBRARY)]} {\n\ lappend dirs $env(TCL_LIBRARY)\n\ }\n\ |