diff options
| author | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-16 06:22:19 +0000 |
|---|---|---|
| committer | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-16 06:22:19 +0000 |
| commit | 4fb012a86a08bea4c25832de68910e96156ccf8f (patch) | |
| tree | db1783383d2622f85fe464fd265f6efca7a9f892 /ext/tk | |
| parent | 8cd944803eee11a00dea64c6257eb6dd030d3920 (diff) | |
* ext/tk/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release was missing.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8631 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
| -rw-r--r-- | ext/tk/tcltklib.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index 58d65ec22c..7651084b24 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -4,7 +4,7 @@ * Oct. 24, 1997 Y. Matsumoto */ -#define TCLTKLIB_RELEASE_DATE "2005-04-26" +#define TCLTKLIB_RELEASE_DATE "2005-06-16" #include "ruby.h" #include "rubysig.h" @@ -3930,6 +3930,7 @@ ip_rb_threadVwaitCommand(clientData, interp, objc, objv) rb_thread_critical = thr_crit_bup; if (ret != TCL_OK) { + Tcl_Release(param); Tcl_Free((char *)param); #if TCL_MAJOR_VERSION >= 8 |