Mercurial > pidgin
diff plugins/perl/common/Request.xs @ 11130:3f3bc7f1b6bf
[gaim-migrate @ 13186]
Fixed warning messages
committer: Tailor Script <tailor@pidgin.im>
| author | John H. Kelm <johnkelm@gmail.com> |
|---|---|
| date | Tue, 19 Jul 2005 10:03:10 +0000 |
| parents | 134d0001983d |
| children | 0e9e2b923d09 |
line wrap: on
line diff
--- a/plugins/perl/common/Request.xs Tue Jul 19 05:31:36 2005 +0000 +++ b/plugins/perl/common/Request.xs Tue Jul 19 10:03:10 2005 +0000 @@ -61,9 +61,13 @@ gaim_request_field_account_get_default_value(field) Gaim::Request::Field field -SV * +IV gaim_request_field_account_get_filter(field) Gaim::Request::Field field +CODE: + RETVAL = PTR2IV(gaim_request_field_account_get_filter(field)); +OUTPUT: + RETVAL gboolean gaim_request_field_account_get_show_all(field) @@ -271,7 +275,7 @@ gaim_request_field_list_get_items(field) Gaim::Request::Field field PREINIT: - GList *l; + 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"))); @@ -285,7 +289,7 @@ gaim_request_field_list_get_selected(field) Gaim::Request::Field field PREINIT: - GList *l; + 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"))); @@ -439,7 +443,7 @@ gaim_request_fields_get_required(fields) Gaim::Request::Fields fields PREINIT: - GList *l; + const GList *l; PPCODE: for (l = gaim_request_fields_get_required(fields); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));