Mercurial > pidgin
changeset 32232:1714dc991a71
Correct Perl API for purple_util_fetch_url.
| author | Elliott Sales de Andrade <qulogic@pidgin.im> |
|---|---|
| date | Thu, 29 Sep 2011 05:03:40 +0000 |
| parents | 5fdaf0fdc0fb |
| children | 1d09b9077181 |
| files | libpurple/plugins/perl/common/Util.xs |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Util.xs Thu Sep 29 04:57:10 2011 +0000 +++ b/libpurple/plugins/perl/common/Util.xs Thu Sep 29 05:03:40 2011 +0000 @@ -462,12 +462,13 @@ #XXX: expand... void -purple_util_fetch_url(plugin, url, full, user_agent, http11, cb) +purple_util_fetch_url(plugin, url, full, user_agent, http11, max_len, cb) Purple::Plugin plugin const char *url gboolean full const char *user_agent gboolean http11 + gssize max_len SV * cb PREINIT: PurpleUtilFetchUrlData *data; @@ -476,7 +477,7 @@ SV *sv = purple_perl_sv_from_fun(plugin, cb); if (sv != NULL) { - data = purple_util_fetch_url(url, full, user_agent, http11, + data = purple_util_fetch_url(url, full, user_agent, http11, max_len, purple_perl_util_url_cb, sv); XPUSHs(sv_2mortal(purple_perl_bless_object(data, "Purple::Util::FetchUrlData"))); } else {