changeset
[gaim-migrate @ 7469]
Wed, 24 Sep 2003 00:55:42 +0000
- author
- Christian Hammond <chipx86@chipx86.com>
- date
- Wed, 24 Sep 2003 00:55:42 +0000
- changeset 6922
- 88b0bc8f5f9e
- parent 6921
- 3d49b89fc920
- child 6923
- 26a1942a942b
[gaim-migrate @ 7469]
Group::buddies() now returns the actual buddies. Contacts changed
things slightly. I'll add contact support soon.
| plugins/perl/common/BuddyList_Group.xs | file | annotate | diff | comparison | revisions |
--- a/plugins/perl/common/BuddyList_Group.xs Wed Sep 24 00:52:16 2003 +0000 +++ b/plugins/perl/common/BuddyList_Group.xs Wed Sep 24 00:55:42 2003 +0000 @@ -68,10 +68,15 @@ Gaim::BuddyList::Group group PREINIT: GaimBlistNode *node; + GaimBlistNode *contact; GaimBlistNode *_group = (GaimBlistNode *)group; PPCODE: - for (node = _group->child; node != NULL; node = node->next) + for (contact = _group->child; contact != NULL; contact = contact->next) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(node, - "Gaim::BuddyList::Buddy"))); + for (node = contact->child; node != NULL; node = node->next) + { + XPUSHs(sv_2mortal(gaim_perl_bless_object(node, + "Gaim::BuddyList::Buddy"))); + } } +
