# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1064364942 0
# Node ID 1d994e9b81f9654982166cba3072648fdb2eb257
# Parent  11d05ddf30a33b08ec1cfbde68ffad03ee81beed
[gaim-migrate @ 7469]
Group::buddies() now returns the actual buddies. Contacts changed
things slightly. I'll add contact support soon.

committer: Tailor Script <tailor@pidgin.im>

diff -r 11d05ddf30a3 -r 1d994e9b81f9 plugins/perl/common/BuddyList_Group.xs
--- a/plugins/perl/common/BuddyList_Group.xs	Wed Sep 24 00:52:16 2003 +0000
+++ b/plugins/perl/common/BuddyList_Group.xs	Wed Sep 24 00:55:42 2003 +0000
@@ -68,10 +68,15 @@
 	Gaim::BuddyList::Group group
 PREINIT:
 	GaimBlistNode *node;
+	GaimBlistNode *contact;
 	GaimBlistNode *_group = (GaimBlistNode *)group;
 PPCODE:
-	for (node = _group->child; node != NULL; node = node->next)
+	for (contact = _group->child; contact != NULL; contact = contact->next)
 	{
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(node,
-			"Gaim::BuddyList::Buddy")));
+		for (node = contact->child; node != NULL; node = node->next)
+		{
+			XPUSHs(sv_2mortal(gaim_perl_bless_object(node,
+				"Gaim::BuddyList::Buddy")));
+		}
 	}
+