# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061436893 0
# Node ID a87b9c7d199e2278f7f0e58cdc41e94db770c153
# Parent  4d45f1eb0a7b24380a1e4ee1b1b113de624f3370
[gaim-migrate @ 7066]
BuddyList::groups() works.

committer: Tailor Script <tailor@pidgin.im>

diff -r 4d45f1eb0a7b -r a87b9c7d199e plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:29:33 2003 +0000
+++ b/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:34:53 2003 +0000
@@ -80,7 +80,7 @@
 groups()
 PREINIT:
 	GaimBlistNode *node;
-CODE:
+PPCODE:
 	if (gaim_get_blist() != NULL)
 	{
 		for (node = gaim_get_blist()->root; node != NULL; node = node->next)