diff options
author | dgp <dgp@noemail.net> | 2001-10-10 20:06:45 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2001-10-10 20:06:45 (GMT) |
commit | 2b77e4eaf78de13f23c62991754224485a3092c2 (patch) | |
tree | 856a19e2eaac3f6cceabcf8b3a3ad01488c01872 /tests/unixInit.test | |
parent | 6708c4db8cd0f9d3ef59689806293136228ffa98 (diff) | |
download | tcl-2b77e4eaf78de13f23c62991754224485a3092c2.zip tcl-2b77e4eaf78de13f23c62991754224485a3092c2.tar.gz tcl-2b77e4eaf78de13f23c62991754224485a3092c2.tar.bz2 |
* Corrected restore of ::env(LANG).
FossilOrigin-Name: 40f242fb068f50d3790c72a3c6536d4a5b7d7e82
Diffstat (limited to 'tests/unixInit.test')
-rw-r--r-- | tests/unixInit.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index 7d85d02..54af8ab 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.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: unixInit.test,v 1.24 2001/09/06 21:05:56 dgp Exp $ +# RCS: @(#) $Id: unixInit.test,v 1.25 2001/10/10 20:06:46 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -321,7 +321,8 @@ test unixInit-6.1 {Tcl_SourceRCFile} {emptyTest unixOnly} { if {[info exists oldlibrary]} { set env(TCL_LIBRARY) $oldlibrary } -catch {unset env(LANG); set env(LANG) $oldlang} +catch {unset env(LANG)} +catch {set env(LANG) $oldlang} ::tcltest::cleanupTests return |