--- a/libpurple/plugins/perl/common/Network.xs Sat Sep 24 17:04:09 2011 +0000 +++ b/libpurple/plugins/perl/common/Network.xs Sat Sep 24 20:36:47 2011 +0000 @@ -23,8 +23,9 @@ const char *ip Purple::NetworkListenData -purple_network_listen(port, socket_type, cb, cb_data) +purple_network_listen(port, socket_family, socket_type, cb, cb_data) unsigned short port + int socket_family int socket_type Purple::NetworkListenCallback cb gpointer cb_data