/[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.4 by spiralvoice, Mon Jun 20 18:38:49 2005 UTC revision 1.5 by spiralvoice, Tue Aug 9 10:52:02 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
605      | e ->      | e ->
606          lprintf "For host %s port %d\n"          lprintf "For host %s port %d\n"
607            (Unix.string_of_inet_addr host) port;            (Unix.string_of_inet_addr host) port;

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

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