# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 967521730 0
# Node ID 95ebfdb31a9b64271c86a62cf162fad5d1f58831
# Parent  c714def9cebb342a69a6a246c6e81f74324a2c23
[gaim-migrate @ 791]
arg

committer: Tailor Script <tailor@pidgin.im>

diff -r c714def9cebb -r 95ebfdb31a9b src/perl.c
--- a/src/perl.c	Tue Aug 29 03:59:01 2000 +0000
+++ b/src/perl.c	Tue Aug 29 04:02:10 2000 +0000
@@ -60,7 +60,7 @@
 struct _perl_event_handlers {
 	char *event_type;
 	char *handler_name;
-}
+};
 
 struct _perl_timeout_handlers {
 	char *handler_name;
@@ -526,7 +526,7 @@
 	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
 		data = handler->data;
 		if (!strcmp(event_name(event), data->event_type))
-			execute_perl(args);
+			execute_perl(data->handler_name, args);
 	}
 
 	return 0;