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

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpBufferedSocket.ml
diff -u mldonkey/src/utils/net/tcpBufferedSocket.ml:1.31 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.32
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.31    Tue Aug  9 10:52:02 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Mon Aug 15 20:23:34 2005
@@ -1381,7 +1381,9 @@
         forecast_download t 0;  (* The TCP ACK packet *)
         forecast_upload t 0;    (* The TCP ACK packet *)
         t
-    | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e -> raise e
+    | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e ->
+       close t Closed_connect_failed;
+        raise e
     | e ->
         lprintf "For host %s:%d   "
             (Unix.string_of_inet_addr host) port;