diff -r de1e21808029 -r 42c80df526f0 plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Wed Feb 23 04:31:38 2005 +0000
+++ b/plugins/perl/common/BuddyList.xs	Wed Feb 23 04:50:03 2005 +0000
@@ -65,20 +65,6 @@
 
 	g_slist_free(l);
 
-void
-get_buddies(account)
-	Gaim::Account account
-PREINIT:
-	GSList *l;
-PPCODE:
-	for (l = gaim_get_account_buddies(account); l != NULL; l = l->next)
-	{
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data,
-			"Gaim::BuddyList::Buddy")));
-	}
-
-	g_slist_free(l);
-
 Gaim::BuddyList::Group
 find_group(name)
 	const char *name