Mercurial > pidgin.yaz
diff plugins/perl/common/Status.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 | ece127d56c14 |
line wrap: on
line diff
--- a/plugins/perl/common/Status.xs Tue Jul 19 05:31:36 2005 +0000 +++ b/plugins/perl/common/Status.xs Tue Jul 19 10:03:10 2005 +0000 @@ -74,7 +74,7 @@ gaim_presence_get_buddies(presence) Gaim::Presence presence PREINIT: - GList *l; + const GList *l; PPCODE: for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); @@ -109,7 +109,7 @@ gaim_presence_get_statuses(presence) Gaim::Presence presence PREINIT: - GList *l; + const GList *l; PPCODE: for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem"))); @@ -370,7 +370,7 @@ gaim_status_type_get_attrs(status_type) Gaim::StatusType status_type PREINIT: - GList *l; + const GList *l; PPCODE: for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));