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 {