# HG changeset patch
# User Sadrul Habib Chowdhury <imadil@gmail.com>
# Date 1208705859 0
# Node ID f35a57b8f4cea2e71fc86a97dba79dfc1e17b0cb
# Parent  27c9c55499f8d5eba268705654c6eb63404a4da3
Expose Purple::Prefs::get_children_names to perl plugins.

diff -r 27c9c55499f8 -r f35a57b8f4ce libpurple/plugins/perl/common/Prefs.xs
--- a/libpurple/plugins/perl/common/Prefs.xs	Sun Apr 20 15:35:16 2008 +0000
+++ b/libpurple/plugins/perl/common/Prefs.xs	Sun Apr 20 15:37:39 2008 +0000
@@ -167,6 +167,17 @@
 	const char *name
 
 void
+purple_prefs_get_children_names(name)
+	const char *name
+PREINIT:
+	GList *l;
+PPCODE:
+	for (l = purple_prefs_get_children_names(name); l != NULL; l = g_list_delete_link(l, l)) {
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
+		g_free(l->data);
+	}
+
+void
 purple_prefs_uninit()
 
 void