Mercurial > pidgin
diff plugins/perl/common/Request.xs @ 12892:3ab3e68df807
[gaim-migrate @ 15245]
These functions return a list of strings in C, in perl they were retuning a
blessed object that didn't seem to have any use, so I made them return strings
instead so they work "normally". I think this an improvement.
committer: Tailor Script <tailor@pidgin.im>
| author | Etan Reisner <pidgin@unreliablesource.net> |
|---|---|
| date | Mon, 16 Jan 2006 10:19:31 +0000 |
| parents | 43d8af815a9d |
| children |
line wrap: on
line diff
--- a/plugins/perl/common/Request.xs Mon Jan 16 10:17:17 2006 +0000 +++ b/plugins/perl/common/Request.xs Mon Jan 16 10:19:31 2006 +0000 @@ -246,7 +246,7 @@ GList *l; PPCODE: for (l = gaim_request_field_choice_get_labels(field); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); + XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } int @@ -353,7 +353,7 @@ const GList *l; PPCODE: for (l = gaim_request_field_list_get_items(field); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); + XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } gboolean @@ -367,7 +367,7 @@ const GList *l; PPCODE: for (l = gaim_request_field_list_get_selected(field); l != NULL; l = l->next) { - XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); + XPUSHs(sv_2mortal(newSVpv(l->data, 0))); } gboolean