diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 11:34:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 11:34:29 (GMT) |
| commit | 960a377fd1879082dbe0266533202d47cfdd5683 (patch) | |
| tree | 7ecaed3ea799935397ca4da47aba8bb05f22a27f /generic/tclEnv.c | |
| parent | df9709eef5f83bb6070ddb864f042cf9daff7d96 (diff) | |
| download | tcl-960a377fd1879082dbe0266533202d47cfdd5683.zip tcl-960a377fd1879082dbe0266533202d47cfdd5683.tar.gz tcl-960a377fd1879082dbe0266533202d47cfdd5683.tar.bz2 | |
... and don't break env-5.3 and env-5.5 test-cases.
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 1 |
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); |