diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/unixInit.test | 5 |
2 files changed, 7 insertions, 2 deletions
@@ -1,3 +1,7 @@ +2001-10-10 Don Porter <dgp@users.sourceforge.net> + + * tests/unixInit.test: Corrected restore of ::env(LANG). + 2001-10-09 Jeff Hobbs <jeffh@ActiveState.com> * generic/tclFileName.c (Tcl_SplitPath): corrected mem leak 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 |