+ if (code->tcl_obj)
+ ret = Tcl_GlobalEvalObj(spec->tcl_interp, code->tcl_obj);
+ else
+ ret = Tcl_GlobalEval (spec->tcl_interp, code->str);
+ if (ret != TCL_OK)
+ {
+ const char *err = Tcl_GetVar(spec->tcl_interp, "errorInfo", 0);
+ logf(LOG_FATAL, "Tcl error, line=%d, \"%s\"\n%s",
+ spec->tcl_interp->errorLine,
+ spec->tcl_interp->result,
+ err ? err : "[NO ERRORINFO]");
+ }