diff: libpurple/plugins/perl/common/Network.xs
libpurple/plugins/perl/common/Network.xs
- branch
- release-2.x.y
- changeset 33897
- f7d55c9c57d3
- parent 23983
- 586866581434
- child 33933
- bd00e2d2b32e
--- 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)
