[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpClientSocket.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpClientSocket.ml
diff -u mldonkey/src/utils/net/tcpClientSocket.ml:1.5 
mldonkey/src/utils/net/tcpClientSocket.ml:1.6
--- mldonkey/src/utils/net/tcpClientSocket.ml:1.5       Tue Aug  9 10:52:02 2005
+++ mldonkey/src/utils/net/tcpClientSocket.ml   Mon Aug 15 20:23:34 2005
@@ -601,7 +601,9 @@
       t
     with 
       Unix.Unix_error((Unix.EINPROGRESS|Unix.EINTR),_,_) -> t
-    | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e -> raise e
+    | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e ->
+        close t "connect failed";
+        raise e
     | e -> 
         lprintf "For host %s port %d\n"
          (Unix.string_of_inet_addr host) port;