libpurple/plugins/tcl/tcl_cmd.c

changeset 24683
3481a3320313
parent 19859
71d37b57eff2
child 30626
bec413ce77c7
--- a/libpurple/plugins/tcl/tcl_cmd.c	Sun Nov 16 00:10:02 2008 +0000
+++ b/libpurple/plugins/tcl/tcl_cmd.c	Sun Nov 16 06:50:19 2008 +0000
@@ -159,7 +159,7 @@
 
 		errorstr = g_strdup_printf("error evaluating callback: %s\n",
 		                           Tcl_GetString(Tcl_GetObjResult(handler->interp)));
-		purple_debug(PURPLE_DEBUG_ERROR, "tcl", errorstr);
+		purple_debug(PURPLE_DEBUG_ERROR, "tcl", "%s", errorstr);
 		*errors = errorstr;
 		retval = PURPLE_CMD_RET_FAILED;
 	} else {
@@ -170,7 +170,7 @@
 
 			errorstr = g_strdup_printf("Error retreiving procedure result: %s\n",
 			                           Tcl_GetString(Tcl_GetObjResult(handler->interp)));
-			purple_debug(PURPLE_DEBUG_ERROR, "tcl", errorstr);
+			purple_debug(PURPLE_DEBUG_ERROR, "tcl", "%s", errorstr);
 			*errors = errorstr;
 			retval = PURPLE_CMD_RET_FAILED;
 		}

mercurial