diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-12-06 09:33:14 (GMT) |
| commit | 54680ce5e2b52b6cb0a10e77a6627ea92369bcd1 (patch) | |
| tree | 20d495c6ada510e44ebce827414ca5d3a114ea76 /generic/tclEnv.c | |
| parent | c92c45037cf894a4599a8b1a8915575a7949dbf0 (diff) | |
| parent | 7631cbda15c13ff69b665f0b71ad20c866c00624 (diff) | |
| download | tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.zip tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.gz tcl-54680ce5e2b52b6cb0a10e77a6627ea92369bcd1.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 6a21947..8f51c1b 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -614,7 +614,8 @@ EnvTraceProc( const char *value = TclGetEnv(name2, &valueString); if (value == NULL) { - return (char *) "no such variable"; + Tcl_UnsetVar2(interp, name1, name2, 0); + return NULL; } Tcl_SetVar2(interp, name1, name2, value, 0); Tcl_DStringFree(&valueString); |