changeset 22692:f35a57b8f4ce

Expose Purple::Prefs::get_children_names to perl plugins.
author Sadrul Habib Chowdhury <imadil@gmail.com>
date Sun, 20 Apr 2008 15:37:39 +0000
parents 27c9c55499f8
children a73acc0c4dc8
files libpurple/plugins/perl/common/Prefs.xs
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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