diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-10-10 20:06:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-10-10 20:06:46 (GMT) |
| commit | f9506f8d136fc6449b1c58e16b1ac942a73b4dc7 (patch) | |
| tree | 856a19e2eaac3f6cceabcf8b3a3ad01488c01872 /tests | |
| parent | befbc9e74c4022b8bdf065338dfca942e9243c92 (diff) | |
| download | tcl-f9506f8d136fc6449b1c58e16b1ac942a73b4dc7.zip tcl-f9506f8d136fc6449b1c58e16b1ac942a73b4dc7.tar.gz tcl-f9506f8d136fc6449b1c58e16b1ac942a73b4dc7.tar.bz2 | |
* Corrected restore of ::env(LANG).
Diffstat (limited to 'tests')
| -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 |