diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 11:20:32 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 11:20:32 (GMT) |
| commit | c1a53f0dd7a0e1aef46d770cc0d18a66f61746de (patch) | |
| tree | c7728afbf709340e07aaabd07158c17449b9b057 | |
| parent | 0c64716c131bbc1609b9b539eab58b677b8ec8bc (diff) | |
| download | tcl-c1a53f0dd7a0e1aef46d770cc0d18a66f61746de.zip tcl-c1a53f0dd7a0e1aef46d770cc0d18a66f61746de.tar.gz tcl-c1a53f0dd7a0e1aef46d770cc0d18a66f61746de.tar.bz2 | |
Bug Fix: EnvTraceProc() MUST always return NULL to indicate success.
| -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); |