diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 14:05:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 14:05:44 (GMT) |
commit | f9ddbba3d621449f2cb1b2a4d0a94927b48391eb (patch) | |
tree | 3ade494c3df0db96fad2186342e97bb8a78cf8f1 /generic/tclEnv.c | |
parent | 5c61b2bbdce7b9dbc4c067cf5646e8bd175a9d84 (diff) | |
parent | a4154b246b048a378dd83998031d103263856c8f (diff) | |
download | tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.zip tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.tar.gz tcl-f9ddbba3d621449f2cb1b2a4d0a94927b48391eb.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic/tclEnv.c')
-rw-r--r-- | generic/tclEnv.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 9677b86..8a6f996 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -254,7 +254,7 @@ TclSetEnv( oldValue = NULL; nameLength = strlen(name); } else { - const char *env; + const char *oldEnv; /* * Compare the new value to the existing value. If they're the same @@ -264,8 +264,8 @@ TclSetEnv( * interpreters. */ - env = Tcl_ExternalToUtfDString(NULL, environ[index], -1, &envString); - if (strcmp(value, env + (length + 1)) == 0) { + oldEnv = Tcl_ExternalToUtfDString(NULL, environ[index], -1, &envString); + if (strcmp(value, oldEnv + (length + 1)) == 0) { Tcl_DStringFree(&envString); Tcl_MutexUnlock(&envMutex); return; |