--- a/src/perl.c Mon Sep 16 07:04:55 2002 +0000
+++ b/src/perl.c Mon Sep 16 08:35:24 2002 +0000
@@ -662,7 +662,7 @@
XSRETURN(0);
}
-int perl_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4)
+int perl_event(enum gaim_event event, void *arg1, void *arg2, void *arg3, void *arg4, void *arg5)
{
char *buf = NULL;
GList *handler;
@@ -754,6 +754,7 @@
arg2 ? escape_quotes(arg2) : "", (int)arg3);
break;
case event_quit:
+ case event_blist_update:
buf = g_malloc0(1);
break;
case event_new_conversation:
@@ -780,6 +781,9 @@
g_free(tmp3);
}
break;
+ case event_draw_menu:
+ /* we can't handle this usefully without gtk/perl bindings */
+ return 0;
default:
debug_printf("someone forgot to handle %s in the perl binding\n", event_name(event));
return 0;