diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 11:34:29 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 11:34:29 (GMT) |
| commit | 7ce0f1300720d50626ab2ad437a949fbf48a737b (patch) | |
| tree | 7ecaed3ea799935397ca4da47aba8bb05f22a27f | |
| parent | c1a53f0dd7a0e1aef46d770cc0d18a66f61746de (diff) | |
| download | tcl-7ce0f1300720d50626ab2ad437a949fbf48a737b.zip tcl-7ce0f1300720d50626ab2ad437a949fbf48a737b.tar.gz tcl-7ce0f1300720d50626ab2ad437a949fbf48a737b.tar.bz2 | |
... and don't break env-5.3 and env-5.5 test-cases.
| -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); |