Changeset 847399e in tol

Timestamp:

Nov 16, 2011, 9:42:23 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

9f0fc0f

Parents:

e350210

Message:

include ActiveTcl lib in auto_path if it exists

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3846 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl (modified) (1 diff)

tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl

@@ -296 +296 @@
       if {[llength $pkg_dirs]} {
         lappend ::auto_path [file normalize $libdir]
-      } elseif { $::tcl_platform(platform) eq "unix" && 
-          $::tcl_platform(machine) eq "x86_64" } {
+      } elseif { $::tcl_platform(platform) eq "unix" } {
+          set activeTcl "/opt/ActiveTcl-8.4/lib"
+          if { [ file exists $activeTcl ] &&
+               [ lsearch $::auto_path $activeTcl ] == -1 } {
+            lappend ::auto_path $activeTcl
+          }
           if { [ lsearch $::auto_path "/usr/lib" ] == -1 } {
             lappend ::auto_path "/usr/lib"