Mercurial > pidgin
comparison libpurple/plugins/perl/common/Prefs.xs @ 17741:b61baeefbe38
Fix _prefs_get_string_list for perl.
| author | Sadrul Habib Chowdhury <imadil@gmail.com> |
|---|---|
| date | Tue, 22 May 2007 10:09:50 +0000 |
| parents | 39c7bb133a9f |
| children | ee58212687bb |
comparison
equal
deleted
inserted
replaced
| 17740:b25c4fe3a8ce | 17741:b61baeefbe38 |
|---|---|
| 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 |