/pidgin/main: f7d55c9c57d3: Make Purple::Network::ip_atoi actual...

[Tomasz Wasilczyk]

Changeset: f7d55c9c57d3006869cd2a6c3f6805c156c452be
Author:	 Tomasz Wasilczyk <tomkiewicz at cpw.pidgin.im>
Date:	 2013-04-17 23:55 +0200
Branch:	 release-2.x.y
URL: https://hg.pidgin.im/pidgin/main/rev/f7d55c9c57d3

Description:

Make Purple::Network::ip_atoi actually working

diffstat:

 .hgignore                                |  1 +
 libpurple/plugins/perl/common/Network.xs |  5 +++++
 2 files changed, 6 insertions(+), 0 deletions(-)

diffs (26 lines):

diff --git a/.hgignore b/.hgignore
--- a/.hgignore
+++ b/.hgignore
@@ -7,6 +7,7 @@ syntax: regexp
 .*/perl/common/[^/]+\.c$
 .*/perl/common/blib.*
 .*/perl/common/pm_to_blib$
+.*/perl/common/MYMETA\.(json|yml)
 .*~$
 .*\.a$
 .*\.asc$
diff --git a/libpurple/plugins/perl/common/Network.xs b/libpurple/plugins/perl/common/Network.xs
--- a/libpurple/plugins/perl/common/Network.xs
+++ b/libpurple/plugins/perl/common/Network.xs
@@ -21,6 +21,11 @@ purple_network_get_public_ip()
 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)