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

[<bi...@us...>]

Revision: 5681
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5681&view=rev
Author:   bigrixx
Date:     2010-03-09 23:44:58 +0000 (Tue, 09 Mar 2010)

Log Message:
-----------
[ oorexx-Patches-2966044 ] socket.cls does not shutdown socket

Patch contributed by Brandon Cherry. 

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

Modified: main/branches/4.0.1/trunk/extensions/rxsock/socket.cls
===================================================================
--- main/branches/4.0.1/trunk/extensions/rxsock/socket.cls	2010-03-09 23:40:28 UTC (rev 5680)
+++ main/branches/4.0.1/trunk/extensions/rxsock/socket.cls	2010-03-09 23:44:58 UTC (rev 5681)
@@ -330,6 +330,7 @@
 ::method close
 expose s errno
 use strict arg
+call SockShutDown s, 2
 retc = SockClose(s)
 if retc = -1 then errno = self~convert_err_number(SockSock_errno())
 else errno = ''


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