pidgin: 0fb5c2a9: Expose Purple::Prefs::get_children_names...

[sadrul at pidgin.im]

-----------------------------------------------------------------
Revision: 0fb5c2a94109c3921d619c2149e12569e30116ee
Ancestor: a060cc8315a6500f42289837501a738d109ce642
Author: sadrul at pidgin.im
Date: 2008-04-20T15:37:39
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/0fb5c2a94109c3921d619c2149e12569e30116ee

Modified files:
        libpurple/plugins/perl/common/Prefs.xs

ChangeLog: 

Expose Purple::Prefs::get_children_names to perl plugins.

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/Prefs.xs	7f722e7af78d715135e5cc6507b535b228dbada6
+++ libpurple/plugins/perl/common/Prefs.xs	360a65dfda64f723b76e7372a70c1b9f218acd7c
@@ -167,6 +167,17 @@ void
 	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