diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-18 05:59:22 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-18 05:59:22 (GMT) |
| commit | e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb (patch) | |
| tree | 0235302100c65242e670dde18610bdea2697cd10 /generic/tclEnv.c | |
| parent | 8047a470ef35faeafe18de166f773a78097b3fc2 (diff) | |
| download | tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.zip tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.tar.gz tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.tar.bz2 | |
Plug leak in TclSetEnv.
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 8cc4b74..c559c69 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -730,6 +730,10 @@ TclFinalizeEnvironment(void) ckfree(env.cache); env.cache = NULL; env.cacheSize = 0; + if ((env.ourEnviron != NULL)) { + ckfree(env.ourEnviron); + env.ourEnviron = NULL; + } #ifndef USE_PUTENV env.ourEnvironSize = 0; #endif |