[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpClientSocket.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpClientSocket.ml |
Date: |
Mon, 15 Aug 2005 16:23:38 -0400 |
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;