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 | 3d8b62339c50842b052573c54a0654e3ddbb786d (patch) | |
tree | 7ecaed3ea799935397ca4da47aba8bb05f22a27f /generic/tclEnv.c | |
parent | 4043a96088465941703e7db82c538b1b4a8b7ee6 (diff) | |
download | tcl-3d8b62339c50842b052573c54a0654e3ddbb786d.zip tcl-3d8b62339c50842b052573c54a0654e3ddbb786d.tar.gz tcl-3d8b62339c50842b052573c54a0654e3ddbb786d.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); |