comparison: plugins/perl/common/BuddyList_Group.xs
plugins/perl/common/BuddyList_Group.xs
- changeset 6922
- 88b0bc8f5f9e
- parent 6542
- c7b0cf99c527
- child 9285
- 9cedf5d26577
equal
deleted
inserted
replaced
| 6921:3d49b89fc920 | 6922:88b0bc8f5f9e |
|---|---|
| 66 void | 66 void |
| 67 buddies(group) | 67 buddies(group) |
| 68 Gaim::BuddyList::Group group | 68 Gaim::BuddyList::Group group |
| 69 PREINIT: | 69 PREINIT: |
| 70 GaimBlistNode *node; | 70 GaimBlistNode *node; |
| 71 GaimBlistNode *contact; | |
| 71 GaimBlistNode *_group = (GaimBlistNode *)group; | 72 GaimBlistNode *_group = (GaimBlistNode *)group; |
| 72 PPCODE: | 73 PPCODE: |
| 73 for (node = _group->child; node != NULL; node = node->next) | 74 for (contact = _group->child; contact != NULL; contact = contact->next) |
| 74 { | 75 { |
| 75 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, | 76 for (node = contact->child; node != NULL; node = node->next) |
| 76 "Gaim::BuddyList::Buddy"))); | 77 { |
| 78 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, | |
| 79 "Gaim::BuddyList::Buddy"))); | |
| 80 } | |
| 77 } | 81 } |
| 82 |
