Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |