[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpServerSocket.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpServerSocket.ml
diff -u mldonkey/src/utils/net/tcpServerSocket.ml:1.5 
mldonkey/src/utils/net/tcpServerSocket.ml:1.6
--- mldonkey/src/utils/net/tcpServerSocket.ml:1.5       Wed Apr 13 21:52:27 2005
+++ mldonkey/src/utils/net/tcpServerSocket.ml   Mon Jun  6 21:23:11 2005
@@ -107,8 +107,13 @@
     t.sock <- sock;
     t
   with e ->
-      lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port;
-      raise e
+    lprintf "Exception: %s at port %d\n" (Printexc2.to_string e) port;
+    match e with
+      Unix.Unix_error (Unix.EADDRINUSE, _, _) -> 
+       lprintf "This is normally caused by another application currently using 
this port.\n";
+       lprintf "Close that application and restart MLDonkey, exiting...\n";
+       Pervasives.exit 0
+      | _ -> raise e
   
 let create_connections_contoler name f =
   let cc = {