Mercurial > pidgin3 / changeset

--- a/.hgignore	Mon Apr 15 16:49:08 2013 +0200
+++ b/.hgignore	Wed Apr 17 23:55:31 2013 +0200
@@ -7,6 +7,7 @@
 .*/perl/common/[^/]+\.c$
 .*/perl/common/blib.*
 .*/perl/common/pm_to_blib$
+.*/perl/common/MYMETA\.(json|yml)
 .*~$
 .*\.a$
 .*\.asc$

--- a/libpurple/plugins/perl/common/Network.xs	Mon Apr 15 16:49:08 2013 +0200
+++ b/libpurple/plugins/perl/common/Network.xs	Wed Apr 17 23:55:31 2013 +0200
@@ -21,6 +21,11 @@
 const unsigned char *
 purple_network_ip_atoi(ip)
 	const char *ip
+PPCODE:
+	RETVAL = purple_network_ip_atoi(ip);
+	sv_setpvn(TARG, (const char *)RETVAL, 4);
+	XSprePUSH;
+	PUSHTARG;
 
 Purple::NetworkListenData
 purple_network_listen(port, socket_type, cb, cb_data)