Merge pull request #7975 from QuantamHD/fix_false_positive_mem_leak

utl: Fixes memory leak false positive with Google heap checker

Author: maliberty

src/utl/src/decode.cpp

@@ -116,12 +116,15 @@ std::string base64_decode(const char* encoded_strings[])
 void evalTclInit(Tcl_Interp* interp, const char* inits[])
 {
   std::string unencoded = base64_decode(inits);
-  if (Tcl_Eval(interp, unencoded.c_str()) != TCL_OK) {
+  Tcl_Obj* obj = Tcl_NewStringObj(unencoded.c_str(), unencoded.size());
+  Tcl_IncrRefCount(obj);
+  if (Tcl_EvalObjEx(interp, obj, 0) != TCL_OK) {
     Tcl_Eval(interp, "$errorInfo");
     const char* tcl_err = Tcl_GetStringResult(interp);
     fprintf(stderr, "Error: TCL init script: %s.\n", tcl_err);
     exit(1);
   }
+  Tcl_DecrRefCount(obj);
 }
 
 }  // namespace utl