diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 11:20:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 11:20:32 (GMT) |
| commit | df9709eef5f83bb6070ddb864f042cf9daff7d96 (patch) | |
| tree | c7728afbf709340e07aaabd07158c17449b9b057 /generic/tclEnv.c | |
| parent | 292a07fb1ed3636070430bbcda1f350629eba5e2 (diff) | |
| download | tcl-df9709eef5f83bb6070ddb864f042cf9daff7d96.zip tcl-df9709eef5f83bb6070ddb864f042cf9daff7d96.tar.gz tcl-df9709eef5f83bb6070ddb864f042cf9daff7d96.tar.bz2 | |
Bug Fix: EnvTraceProc() MUST always return NULL to indicate success.
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 6a21947..7c49d44 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -614,7 +614,7 @@ EnvTraceProc( const char *value = TclGetEnv(name2, &valueString); if (value == NULL) { - return (char *) "no such variable"; + return NULL; } Tcl_SetVar2(interp, name1, name2, value, 0); Tcl_DStringFree(&valueString); |