From f9506f8d136fc6449b1c58e16b1ac942a73b4dc7 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 10 Oct 2001 20:06:46 +0000 Subject: * Corrected restore of ::env(LANG). --- ChangeLog | 4 ++++ tests/unixInit.test | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index d2323bc..ed8630a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-10-10 Don Porter + + * tests/unixInit.test: Corrected restore of ::env(LANG). + 2001-10-09 Jeff Hobbs * 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 -- cgit v0.12