# HG changeset patch
# User Elliott Sales de Andrade <qulogic@pidgin.im>
# Date 1317272620 0
# Node ID 1714dc991a71229ae9d5a7592432799d1efa675d
# Parent  5fdaf0fdc0fba202274ad2323d404f7b3d94bc38
Correct Perl API for purple_util_fetch_url.

diff -r 5fdaf0fdc0fb -r 1714dc991a71 libpurple/plugins/perl/common/Util.xs
--- 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 {