diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-11-14 12:07:49 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-11-14 12:07:49 (GMT) |
| commit | e76fe7a1c724d16be8d67aedf48df033a12aca8c (patch) | |
| tree | e8062c8192414ca571c5e3d7f229621257ca2105 | |
| parent | 53e0d3737652fa8bb15e592b3d23d97635a7e4b5 (diff) | |
| download | tcl-e76fe7a1c724d16be8d67aedf48df033a12aca8c.zip tcl-e76fe7a1c724d16be8d67aedf48df033a12aca8c.tar.gz tcl-e76fe7a1c724d16be8d67aedf48df033a12aca8c.tar.bz2 | |
Fix problem in testcase
| -rw-r--r-- | tests/init.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/init.test b/tests/init.test index ce8301c..00e302a 100644 --- a/tests/init.test +++ b/tests/init.test @@ -52,7 +52,7 @@ test init-0.2 {no init.tcl from empty tcl_library, bug [43c94f95988f3057]} -setu set res } -cleanup { if {[info exists org_tcl_lib]} { - set ::env(TCL_LIBRARY) org_tcl_lib + set ::env(TCL_LIBRARY) $org_tcl_lib unset org_tcl_lib } else { unset -nocomplain ::env(TCL_LIBRARY) |