Mercurial > pidgin.yaz
diff 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 |
line wrap: on
line diff
--- a/plugins/perl/common/BuddyList.xs Thu Aug 21 03:23:18 2003 +0000 +++ b/plugins/perl/common/BuddyList.xs Thu Aug 21 03:29:33 2003 +0000 @@ -81,8 +81,11 @@ PREINIT: GaimBlistNode *node; CODE: - for (node = gaim_get_blist()->root; node != NULL; node = node->next) + if (gaim_get_blist() != NULL) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(node, - "Gaim::BuddyList::Group"))); + for (node = gaim_get_blist()->root; node != NULL; node = node->next) + { + XPUSHs(sv_2mortal(gaim_perl_bless_object(node, + "Gaim::BuddyList::Group"))); + } }