Mercurial > pidgin

comparison libpurple/plugins/perl/common/BuddyList.xs @ 17742:ee58212687bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Plug a few more memory leaks for some perl plugins.
author Sadrul Habib Chowdhury <imadil@gmail.com>
date Tue, 22 May 2007 11:01:14 +0000
parents 8e54f40a60f3
children 79c1f60ece2e
comparison
equal deleted inserted replaced
17741:b61baeefbe38 17742:ee58212687bb
261 purple_blist_node_get_extended_menu(node) 261 purple_blist_node_get_extended_menu(node)
262 Purple::BuddyList::Node node 262 Purple::BuddyList::Node node
263 PREINIT: 263 PREINIT:
264 GList *l; 264 GList *l;
265 PPCODE: 265 PPCODE:
266 for (l = purple_blist_node_get_extended_menu(node); l != NULL; l = l->next) { 266 for (l = purple_blist_node_get_extended_menu(node); l != NULL; l = g_list_delete_link(l, l)) {
267 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Menu::Action"))); 267 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Menu::Action")));
268 } 268 }
269 269
270 void 270 void
271 purple_blist_node_set_bool(node, key, value) 271 purple_blist_node_set_bool(node, key, value)