summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-11-20 11:34:29 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-11-20 11:34:29 (GMT)
commit960a377fd1879082dbe0266533202d47cfdd5683 (patch)
tree7ecaed3ea799935397ca4da47aba8bb05f22a27f
parentdf9709eef5f83bb6070ddb864f042cf9daff7d96 (diff)
downloadtcl-960a377fd1879082dbe0266533202d47cfdd5683.zip
tcl-960a377fd1879082dbe0266533202d47cfdd5683.tar.gz
tcl-960a377fd1879082dbe0266533202d47cfdd5683.tar.bz2
... and don't break env-5.3 and env-5.5 test-cases.
-rw-r--r--generic/tclEnv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c
index 7c49d44..8f51c1b 100644
--- a/generic/tclEnv.c
+++ b/generic/tclEnv.c
@@ -614,6 +614,7 @@ EnvTraceProc(
const char *value = TclGetEnv(name2, &valueString);
if (value == NULL) {
+ Tcl_UnsetVar2(interp, name1, name2, 0);
return NULL;
}
Tcl_SetVar2(interp, name1, name2, value, 0);