# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1261081810 0
# Node ID 9b6a9d5216203e01c01df1660b2bbd71c69541e4
# Parent  13090fc6ad90ed40ff67a984cf649f180304891b
net.server_event: Add :serverport() method to be compatible with old API

diff -r 13090fc6ad90 -r 9b6a9d521620 net/server_event.lua
--- a/net/server_event.lua	Thu Dec 17 20:28:32 2009 +0000
+++ b/net/server_event.lua	Thu Dec 17 20:30:10 2009 +0000
@@ -352,6 +352,10 @@
 		return self._port
 	end
 	
+	function interface_mt:serverport()
+		return self._serverport
+	end
+	
 	function interface_mt:ip()
 		return self._ip
 	end
@@ -464,6 +468,7 @@
 			
 			-- Properties
 			_ip = ip, _port = port, _server = server, _pattern = pattern,
+			_serverport = (server and server:port() or nil),
 			_sslctx = sslctx; -- parameters
 			_usingssl = false;  -- client is using ssl;
 		}