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

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

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

revision 1.5 by spiralvoice, Wed Apr 13 21:52:27 2005 UTC revision 1.6 by spiralvoice, Mon Jun 6 21:23:11 2005 UTC
# Line 107  let create name addr port handler = Line 107  let create name addr port handler =
107      t.sock <- sock;      t.sock <- sock;
108      t      t
109    with e ->    with e ->
110        lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port;      lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port;
111        raise e      match e with
112          Unix.Unix_error (Unix.EADDRINUSE, _, _) ->
113            lprintf "This is normally caused by another application currently using this port.\n";
114            lprintf "Close that application and restart MLDonkey, exiting...\n";
115            Pervasives.exit 0
116          | _ -> raise e
117        
118  let create_connections_contoler name f =  let create_connections_contoler name f =
119    let cc = {    let cc = {

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