plugins/perl/common/BuddyList.xs

changeset 6544
b248ad9766b1
parent 6543
4e9e0b46461c
child 6545
139a447a1419
equal deleted inserted replaced
6543:4e9e0b46461c 6544:b248ad9766b1
78 78
79 void 79 void
80 groups() 80 groups()
81 PREINIT: 81 PREINIT:
82 GaimBlistNode *node; 82 GaimBlistNode *node;
83 CODE: 83 PPCODE:
84 if (gaim_get_blist() != NULL) 84 if (gaim_get_blist() != NULL)
85 { 85 {
86 for (node = gaim_get_blist()->root; node != NULL; node = node->next) 86 for (node = gaim_get_blist()->root; node != NULL; node = node->next)
87 { 87 {
88 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, 88 XPUSHs(sv_2mortal(gaim_perl_bless_object(node,

mercurial