[Oorexx-svn] SF.net SVN: oorexx:[7156] main/trunk/extensions/rxsock/socket.cls

[<wda...@us...>]

Revision: 7156
          http://oorexx.svn.sourceforge.net/oorexx/?rev=7156&view=rev
Author:   wdashley
Date:     2011-09-22 14:06:16 +0000 (Thu, 22 Sep 2011)
Log Message:
-----------
Add corrections from bug 3411663.

Modified Paths:
--------------
    main/trunk/extensions/rxsock/socket.cls

Modified: main/trunk/extensions/rxsock/socket.cls
===================================================================
--- main/trunk/extensions/rxsock/socket.cls	2011-09-19 18:15:27 UTC (rev 7155)
+++ main/trunk/extensions/rxsock/socket.cls	2011-09-22 14:06:16 UTC (rev 7156)
@@ -541,11 +541,14 @@
 if \address~isA(.InetAddress) then ,
  raise syntax 93.914 array (1, 'an InetAddress', address)
 stem. = address~makeStem()
-retc = SockRecvFrom(s, 'xxx', len, 'stem.')
+retc = SockRecvFrom(s, 'xxx', len, 'stem.!')
 if retc = -1 then do
    errno = self~convert_err_number(SockSock_errno())
    return .nil
    end
+address~family= self~convert_address_family(stem.!family)
+address~address=Stem.!addr
+address~port=   Stem.!port
 if retc = 0 & xxx~length > 0 then do
    errno = self~convert_err_number(SockSock_errno())
    if xxx~length > 0 then return xxx

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.