Update of /cvsroot/gaim/gaim/src
In directory usw-pr-cvs1:/tmp/cvs-serv14608/src
Modified Files:
perl.c
Log Message:
This is what I meant.
Index: perl.c
===================================================================
RCS file: /cvsroot/gaim/gaim/src/perl.c,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -d -r1.70 -r1.71
--- perl.c 25 Apr 2002 05:41:27 -0000 1.70
+++ perl.c 25 Apr 2002 05:48:20 -0000 1.71
@@ -715,9 +715,9 @@
case event_chat_recv:
{
char *t3, *t4;
- t3 = g_strdup(escape_quotes(arg3));
- t4 = arg4 ? g_strdup(escape_quotes(arg4)) : g_malloc0(1);
- buf = g_strdup_printf("'%lu','%d','%s','%s'", (unsigned long)arg1, (int)arg2, *t3, *t4);
+ t3 = g_strdup(escape_quotes(*(char **)arg3));
+ t4 = *(char **)arg4 ? g_strdup(escape_quotes(*(char **)arg4)) : g_malloc0(1);
+ buf = g_strdup_printf("'%lu','%d','%s','%s'", (unsigned long)arg1, (int)arg2, t3, t4);
g_free(t3);
g_free(t4);
}
|
