Fixed a memory leak in CTclClientSocket::ParseLine.

diff --git a/bnctcl/TclClientSocket.cpp b/bnctcl/TclClientSocket.cpp
index fa1157033083565bad98955a62acd88c1c3ea33c..cb72bb89c6f8e1e964c525a0976e30fe86a39fa1 100644 (file)
--- a/bnctcl/TclClientSocket.cpp
+++ b/bnctcl/TclClientSocket.cpp
@@ -142,6 +142,7 @@ void CTclClientSocket::ParseLine(const char *Line) {
        Tcl_EvalObjv(g_Interp, 3, objv, TCL_EVAL_GLOBAL);
        m_InTcl = false;
 
+       Tcl_DecrRefCount(objv[2]);
        Tcl_DecrRefCount(objv[1]);
        Tcl_DecrRefCount(objv[0]);
        Tcl_DStringFree(&dsText);