diff options
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 0a4df27..c66812b 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.2 1998/09/14 18:40:08 stanton Exp $ +# RCS: @(#) $Id: env.test,v 1.3 1998/09/30 20:52:00 escoffon Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -67,7 +67,7 @@ puts $f { lrem names ComSpec lrem names "" } - foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH} { + foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { lrem names $name } foreach p $names { @@ -95,7 +95,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} { +foreach name {TCL_LIBRARY PATH LD_LIBRARY_PATH SHLIB_PATH} { if {[info exists env2($name)]} { set env($name) $env2($name); } |