libpurple/plugins/perl/common/Prefs.xs

changeset 17282
7d015f747d02
parent 16773
e1171eb45f07
child 17283
ceb0e3374ddf
equal deleted inserted replaced
17281:34ad301b89e1 17282:7d015f747d02
93 const char *name 93 const char *name
94 PREINIT: 94 PREINIT:
95 GList *l; 95 GList *l;
96 PPCODE: 96 PPCODE:
97 for (l = purple_prefs_get_string_list(name); l != NULL; l = l->next) { 97 for (l = purple_prefs_get_string_list(name); l != NULL; l = l->next) {
98 XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::PrefValue"))); 98 XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
99 } 99 }
100 100
101 Purple::PrefType 101 Purple::PrefType
102 purple_prefs_get_type(name) 102 purple_prefs_get_type(name)
103 const char *name 103 const char *name

mercurial