Mercurial > pidgin.yaz

comparison plugins/perl/common/BuddyList.xs @ 6543:4d45f1eb0a7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 }