comparison: plugins/perl/common/BuddyList.xs
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, |
