diff src/perl.c @ 1100:f168625b63fe

[gaim-migrate @ 1110] some perl updates, and indication of which account got warned committer: Tailor Script <[e-mail]>

--- a/src/perl.c	Thu Nov 16 07:35:58 2000 +0000
+++ b/src/perl.c	Thu Nov 16 08:48:01 2000 +0000
@@ -515,11 +515,15 @@
 {
 	GList *handler;
 	struct _perl_event_handlers *data;
+	SV *handler_return;
 
 	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
 		data = handler->data;
-		if (!strcmp(event, data->event_type))
-			execute_perl(data->handler_name, args);
+		if (!strcmp(event, data->event_type)) {
+			handler_return = execute_perl(data->handler_name, args);
+			if (SvIV(handler_return))
+				return SvIV(handler_return);
+		}
 	}
 
 	return 0;