Fixes sockets.recvFrom not setting length of data.

This commit is contained in:
Dominik Picheta
2012-09-23 01:31:49 +01:00
parent 92e49aeaaf
commit d00cb877fd

View File

@@ -1227,8 +1227,9 @@ proc recvFrom*(socket: TSocket, data: var string, length: int,
var addrLen = sizeof(sockAddress).TSockLen
result = recvFrom(socket.fd, cstring(data), length.cint, flags.cint,
cast[ptr TSockAddr](addr(sockAddress)), addr(addrLen))
if result != -1:
data.setLen(result)
address = $inet_ntoa(sockAddress.sin_addr)
port = ntohs(sockAddress.sin_port).TPort