/[mldonkey]/mldonkey/src/utils/net/tcpClientSocket.ml
ViewVC logotype

Diff of /mldonkey/src/utils/net/tcpClientSocket.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by spiralvoice, Tue Aug 9 10:52:02 2005 UTC revision 1.6 by spiralvoice, Mon Aug 15 20:23:34 2005 UTC
# Line 601  let connect name host port handler = Line 601  let connect name host port handler =
601        t        t
602      with      with
603        Unix.Unix_error((Unix.EINPROGRESS|Unix.EINTR),_,_) -> t        Unix.Unix_error((Unix.EINPROGRESS|Unix.EINTR),_,_) -> t
604      | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e -> raise e      | Unix.Unix_error (Unix.ENETUNREACH,_,_) as e ->
605            close t "connect failed";
606            raise e
607      | e ->      | e ->
608          lprintf "For host %s port %d\n"          lprintf "For host %s port %d\n"
609            (Unix.string_of_inet_addr host) port;            (Unix.string_of_inet_addr host) port;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26