[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.4 
mldonkey/src/utils/net/tcpClientSocket.ml:1.5
--- mldonkey/src/utils/net/tcpClientSocket.ml:1.4       Mon Jun 20 18:38:49 2005
+++ mldonkey/src/utils/net/tcpClientSocket.ml   Tue Aug  9 10:52:02 2005
@@ -601,6 +601,7 @@
       t
     with 
       Unix.Unix_error((Unix.EINPROGRESS|Unix.EINTR),_,_) -> t
+    | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e -> raise e
     | e -> 
         lprintf "For host %s port %d\n"
          (Unix.string_of_inet_addr host) port;