# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1137478187 0
# Node ID 3097275dbbdd2e992f3d061a2d7357bc8a64c2df
# Parent  8e3b85fe4a5514cf9cd53e24e4bf3d7d17d472e1
[gaim-migrate @ 15263]
Fix the perl compilation. Hopefully somebody will evaluate if this is correct.

committer: Tailor Script <tailor@pidgin.im>

diff -r 8e3b85fe4a55 -r 3097275dbbdd plugins/perl/common/Network.xs
--- a/plugins/perl/common/Network.xs	Tue Jan 17 05:48:51 2006 +0000
+++ b/plugins/perl/common/Network.xs	Tue Jan 17 06:09:47 2006 +0000
@@ -26,15 +26,19 @@
 	const char *ip
 
 int
-gaim_network_listen(port, socket_type)
+gaim_network_listen(port, socket_type, cb, cb_data)
 	unsigned short port
 	int socket_type
+	Gaim::NetworkListenCallback cb
+	gpointer cb_data
 
 int
-gaim_network_listen_range(start, end, socket_type)
+gaim_network_listen_range(start, end, socket_type, cb, cb_data)
 	unsigned short start
 	unsigned short end
 	int socket_type
+	Gaim::NetworkListenCallback cb
+	gpointer cb_data
 
 void
 gaim_network_set_public_ip(ip)
diff -r 8e3b85fe4a55 -r 3097275dbbdd plugins/perl/common/module.h
--- a/plugins/perl/common/module.h	Tue Jan 17 05:48:51 2006 +0000
+++ b/plugins/perl/common/module.h	Tue Jan 17 06:09:47 2006 +0000
@@ -159,6 +159,9 @@
 typedef GaimLogSet *			Gaim__LogSet;
 typedef GaimLogType			Gaim__LogType;
 
+/* network.h */
+typedef GaimNetworkListenCallback	Gaim__NetworkListenCallback;
+
 /* notify.h */
 typedef GaimNotifyCloseCallback		Gaim__NotifyCloseCallback;
 typedef GaimNotifyMsgType		Gaim__NotifyMsgType;
diff -r 8e3b85fe4a55 -r 3097275dbbdd plugins/perl/common/typemap
--- a/plugins/perl/common/typemap	Tue Jan 17 05:48:51 2006 +0000
+++ b/plugins/perl/common/typemap	Tue Jan 17 06:09:47 2006 +0000
@@ -89,6 +89,8 @@
 Gaim::Log::ReadFlags			T_GaimObj
 Gaim::Log::Set				T_GaimObj
 
+Gaim::NetworkListenCallback		T_PTR
+
 Gaim::NotifyCloseCallback		T_PTR
 Gaim::NotifyMsgType			T_IV
 Gaim::NotifySearchButtonType		T_IV