From 4fb012a86a08bea4c25832de68910e96156ccf8f Mon Sep 17 00:00:00 2001 From: ocean Date: Thu, 16 Jun 2005 06:22:19 +0000 Subject: * 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 --- ext/tk/tcltklib.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ext/tk') 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 -- cgit v1.2.3