Mercurial > pidgin3 / file diff

--- a/libpurple/plugins/perl/common/Conversation.xs	Tue Mar 18 13:11:04 2014 +0100
+++ b/libpurple/plugins/perl/common/Conversation.xs	Tue Mar 18 13:45:52 2014 +0100
@@ -331,11 +331,13 @@
 purple_chat_conversation_get_users(chat)
 	Purple::ChatConversation chat
 PREINIT:
-	GList *l;
+	GList *l, *users;
 PPCODE:
-	for (l = purple_chat_conversation_get_users(chat); l != NULL; l = l->next) {
+	users = purple_chat_conversation_get_users(chat);
+	for (l = users; l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
 	}
+	g_list_free(users);
 
 void
 purple_chat_conversation_ignore(chat, name)