112 |
Unix.Unix_error (Unix.EADDRINUSE, _, _) -> |
Unix.Unix_error (Unix.EADDRINUSE, _, _) -> |
113 |
lprintf "This is normally caused by another application currently using this port.\n"; |
lprintf "This is normally caused by another application currently using this port.\n"; |
114 |
lprintf "Close that application and restart MLDonkey, exiting...\n"; |
lprintf "Close that application and restart MLDonkey, exiting...\n"; |
115 |
Pervasives.exit 0 |
Pervasives.exit 69 |
116 |
| _ -> raise e |
| _ -> raise e |
117 |
|
|
118 |
let create_connections_contoler name f = |
let create_connections_contoler name f = |