pidgin: 69536309: Correct Perl API for purple_util_fetch_u...

[qulogic at pidgin.im]

----------------------------------------------------------------------
Revision: 695363099d3ef41664329bad572823a3efd35820
Parent:   02a6a7fd4fc5ecc901e3daafe143d1f8e461af65
Author:   qulogic at pidgin.im
Date:     09/29/11 01:03:40
Branch:   im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/695363099d3ef41664329bad572823a3efd35820

Changelog: 

Correct Perl API for purple_util_fetch_url.

Changes against parent 02a6a7fd4fc5ecc901e3daafe143d1f8e461af65

  patched  libpurple/plugins/perl/common/Util.xs

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/Util.xs	bf03a99dce8c30c0df2976d608d489717db9db0c
+++ libpurple/plugins/perl/common/Util.xs	070be8c6e1335d58f180f4dfc772f94469214a12
@@ -462,12 +462,13 @@ void
 
  #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 @@ PPCODE:
 	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 {