--- a/libpurple/plugins/tcl/tcl_cmds.c Wed Jun 02 17:59:31 2021 -0500
+++ b/libpurple/plugins/tcl/tcl_cmds.c Thu Jun 03 19:30:26 2021 -0500
@@ -189,7 +189,7 @@
purple_account_get_enabled(account,
- if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &b)) != TCL_OK)
+ if (Tcl_GetBooleanFromObj(interp, objv[3], &b) != TCL_OK) purple_account_set_enabled(account, purple_core_get_ui(), b);
@@ -1319,14 +1319,12 @@
- if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &idle)) != TCL_OK)
+ if (Tcl_GetBooleanFromObj(interp, objv[3], &idle) != TCL_OK) purple_presence_set_idle(presence, idle, time(NULL));
- if ((error = Tcl_GetIntFromObj(interp,
- &idle_time)) != TCL_OK)
+ if (Tcl_GetIntFromObj(interp, objv[4], &idle_time) != TCL_OK) purple_presence_set_idle(presence, idle, idle_time);
--- a/libpurple/plugins/tcl/tcl_signals.c Wed Jun 02 17:59:31 2021 -0500
+++ b/libpurple/plugins/tcl/tcl_signals.c Thu Jun 03 19:30:26 2021 -0500
@@ -371,8 +371,10 @@
if (purple_value_is_outgoing(handler->argtypes[i])) {
if (vals[i] != NULL && *(char **)vals[i] != NULL) {
- *strs[i] = g_strdup(vals[i]);
+ *strs[i] = g_strdup(vals[i]);