--- a/libpurple/plugins/perl/common/Network.xs Sat Sep 24 20:48:59 2011 +0000 +++ b/libpurple/plugins/perl/common/Network.xs Sat Sep 24 21:10:41 2011 +0000 @@ -23,19 +23,21 @@ const char *ip Purple::NetworkListenData -purple_network_listen(port, socket_family, socket_type, cb, cb_data) +purple_network_listen(port, socket_family, socket_type, map_external, cb, cb_data) unsigned short port int socket_family int socket_type + gboolean map_external Purple::NetworkListenCallback cb gpointer cb_data Purple::NetworkListenData -purple_network_listen_range(start, end, socket_family, socket_type, cb, cb_data) +purple_network_listen_range(start, end, socket_family, socket_type, map_external, cb, cb_data) unsigned short start unsigned short end int socket_family int socket_type + gboolean map_external Purple::NetworkListenCallback cb gpointer cb_data