Mercurial > pidgin
comparison plugins/perl/common/BuddyList.xs @ 6543:4d45f1eb0a7b
[gaim-migrate @ 7065]
Crashes are bad.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Thu, 21 Aug 2003 03:29:33 +0000 |
parents | fe0294504602 |
children | a87b9c7d199e |
comparison
equal
deleted
inserted
replaced
6542:fe0294504602 | 6543:4d45f1eb0a7b |
---|---|
79 void | 79 void |
80 groups() | 80 groups() |
81 PREINIT: | 81 PREINIT: |
82 GaimBlistNode *node; | 82 GaimBlistNode *node; |
83 CODE: | 83 CODE: |
84 for (node = gaim_get_blist()->root; node != NULL; node = node->next) | 84 if (gaim_get_blist() != NULL) |
85 { | 85 { |
86 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, | 86 for (node = gaim_get_blist()->root; node != NULL; node = node->next) |
87 "Gaim::BuddyList::Group"))); | 87 { |
88 XPUSHs(sv_2mortal(gaim_perl_bless_object(node, | |
89 "Gaim::BuddyList::Group"))); | |
90 } | |
88 } | 91 } |