diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-06 20:46:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-06 20:46:47 (GMT) |
| commit | 5d11ad1e8ac0f96ea111b987ca5481e74ac5cce5 (patch) | |
| tree | 1c89325df0464e399f1159250affe9d5f8a8052a /generic/tclPkg.c | |
| parent | 9ba4b4f90141907cd56d190574d5b1906fbbe23a (diff) | |
| parent | cd525c7bb12f0758dcb87189fdb884697806cef7 (diff) | |
| download | tcl-5d11ad1e8ac0f96ea111b987ca5481e74ac5cce5.zip tcl-5d11ad1e8ac0f96ea111b987ca5481e74ac5cce5.tar.gz tcl-5d11ad1e8ac0f96ea111b987ca5481e74ac5cce5.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 975c85c..4f6faa8 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -437,6 +437,8 @@ PkgRequireCore( * The version of the package sought is better than the * currently selected version. */ + ckfree(bestVersion); + bestVersion = NULL; goto newbest; } } else { @@ -465,6 +467,8 @@ PkgRequireCore( * This stable version of the package sought is better * than the currently selected stable version. */ + ckfree(bestStableVersion); + bestStableVersion = NULL; goto newstable; } } else { |