diff options
author | stanton <stanton> | 1998-10-06 02:59:03 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-10-06 02:59:03 (GMT) |
commit | dea1447fbb13d6919f12d85e453da2ce5bec8aab (patch) | |
tree | f7db01ee81a9a8c6619295f26901c6c274af940b /tests/env.test | |
parent | 0f8b9130ec96b8ef7ba2abe8b6d6a60cf98707fe (diff) | |
download | tcl-dea1447fbb13d6919f12d85e453da2ce5bec8aab.zip tcl-dea1447fbb13d6919f12d85e453da2ce5bec8aab.tar.gz tcl-dea1447fbb13d6919f12d85e453da2ce5bec8aab.tar.bz2 |
merged 8.0.4 changes into 8.1 branch
Diffstat (limited to 'tests/env.test')
-rw-r--r-- | tests/env.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/env.test b/tests/env.test index b3064b8..8b11360 100644 --- a/tests/env.test +++ b/tests/env.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: env.test,v 1.1.2.2 1998/09/24 23:59:22 stanton Exp $ +# RCS: @(#) $Id: env.test,v 1.1.2.3 1998/10/06 02:59:05 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -80,7 +80,7 @@ puts $f { lrem names ComSpec lrem names "" } - foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH PURE_PROG_NAME DISPLAY} { + foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH PURE_PROG_NAME DISPLAY SHLIB_PATH } { lrem names $name } foreach p $names { @@ -108,7 +108,7 @@ foreach name [array names env] { # Added the following lines so that child tcltest can actually find its # library if the initial tcltest is run from a non-standard place. # ('saved' env vars) -foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH DISPLAY} { +foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH DISPLAY SHLIB_PATH} { if {[info exists env2($name)]} { set env($name) $env2($name); } |