diff options
Diffstat (limited to 'src/server')
-rw-r--r-- | src/server/tcl_server.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c index 30d55cbc..94c3454a 100644 --- a/src/server/tcl_server.c +++ b/src/server/tcl_server.c @@ -129,9 +129,8 @@ static int tcl_input(struct connection *connection) tclc->tc_line[tclc->tc_lineoffset-1] = '\0'; LOG_DEBUG("Executing script:\n %s", tclc->tc_line); retval = Jim_Eval_Named(interp, tclc->tc_line, "remote:connection", 1); - LOG_DEBUG("Result: %d\n %s", retval, - Jim_GetString(Jim_GetResult(interp), &reslen)); result = Jim_GetString(Jim_GetResult(interp), &reslen); + LOG_DEBUG("Result: %d\n %s", retval, result); retval = tcl_output(connection, result, reslen); if (retval != ERROR_OK) return retval; |