diff options
| author | hobbs <hobbs@noemail.net> | 2002-10-14 22:25:10 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2002-10-14 22:25:10 (GMT) |
| commit | 56778b95362bd313aec8d386ffecad4f0c924f91 (patch) | |
| tree | afbb8b1edd843c2e67b90d7e87bebe45a6d0d6c3 /generic/tclEnv.c | |
| parent | 13e25f063f45c26ebde1b3f74d8469758569c2e5 (diff) | |
| download | tcl-56778b95362bd313aec8d386ffecad4f0c924f91.zip tcl-56778b95362bd313aec8d386ffecad4f0c924f91.tar.gz tcl-56778b95362bd313aec8d386ffecad4f0c924f91.tar.bz2 | |
* generic/tclEnv.c (Tcl_PutEnv): correct possible mem leak.
[Patch #623269] (brouwers)
FossilOrigin-Name: 000341817bda6f02073b0b7e5992e81f1cfabb7d
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 3702ff4..e0e2739 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEnv.c,v 1.18 2002/09/27 00:50:10 hobbs Exp $ + * RCS: @(#) $Id: tclEnv.c,v 1.19 2002/10/14 22:25:10 hobbs Exp $ */ #include "tclInt.h" @@ -326,7 +326,6 @@ Tcl_PutEnv(string) * form NAME=value. (native) */ { Tcl_DString nameString; - int nameLength; CONST char *name; char *value; @@ -342,16 +341,12 @@ Tcl_PutEnv(string) name = Tcl_ExternalToUtfDString(NULL, string, -1, &nameString); value = strchr(name, '='); - if (value == NULL) { - return 0; - } - nameLength = value - name; - if (nameLength == 0) { - return 0; + + if ((value != NULL) && (value != name)) { + value[0] = '\0'; + TclSetEnv(name, value+1); } - value[0] = '\0'; - TclSetEnv(name, value+1); Tcl_DStringFree(&nameString); return 0; } |