diff: libpurple/plugins/perl/common/BuddyList.xs
libpurple/plugins/perl/common/BuddyList.xs
- changeset 17283
- ceb0e3374ddf
- parent 16774
- 064f0b6c87a5
- child 17859
- afbace92af8d
--- a/libpurple/plugins/perl/common/BuddyList.xs Tue May 22 10:09:50 2007 +0000 +++ b/libpurple/plugins/perl/common/BuddyList.xs Tue May 22 11:01:14 2007 +0000 @@ -263,7 +263,7 @@ PREINIT: GList *l; PPCODE: - for (l = purple_blist_node_get_extended_menu(node); l != NULL; l = l->next) { + for (l = purple_blist_node_get_extended_menu(node); l != NULL; l = g_list_delete_link(l, l)) { XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Menu::Action"))); }
