comparison src/perl.c @ 3573:163205125ee2

[gaim-migrate @ 3671] perl fix committer: Tailor Script <[e-mail]>

3572:bdd0bebd2d04

	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
		data = handler->data;
		if (!strcmp(event_name(event), data->event_type)) {
			handler_return = execute_perl(data->handler_name, buf);
			if (SvIV(handler_return)) {
				if (buf)
					g_free(buf);
				return SvIV(handler_return);
			}
		}
	}

	if (buf)

3573:163205125ee2

	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
		data = handler->data;
		if (!strcmp(event_name(event), data->event_type)) {
			handler_return = execute_perl(data->handler_name, buf);
			if (handler_return) {
				if (buf)
					g_free(buf);
				return handler_return;
			}
		}
	}

	if (buf)