diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-06 20:48:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-06 20:48:12 (GMT) |
| commit | 7573551ccb9bf493c308529863e9f403950542f7 (patch) | |
| tree | 65ba159cd650d26419de42a32a05f98015fe5155 /generic/tclPkg.c | |
| parent | 4644a04ee326528bd852267197c074756f50507d (diff) | |
| parent | 5d11ad1e8ac0f96ea111b987ca5481e74ac5cce5 (diff) | |
| download | tcl-7573551ccb9bf493c308529863e9f403950542f7.zip tcl-7573551ccb9bf493c308529863e9f403950542f7.tar.gz tcl-7573551ccb9bf493c308529863e9f403950542f7.tar.bz2 | |
Plug memleak recently put into [package require].
Diffstat (limited to 'generic/tclPkg.c')
| -rw-r--r-- | generic/tclPkg.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index fb721a0..cdf9a8b 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -503,6 +503,8 @@ PkgRequireCore( * The version of the package sought is better than the * currently selected version. */ + ckfree(bestVersion); + bestVersion = NULL; goto newbest; } } else { @@ -531,6 +533,8 @@ PkgRequireCore( * This stable version of the package sought is better * than the currently selected stable version. */ + ckfree(bestStableVersion); + bestStableVersion = NULL; goto newstable; } } else { |