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

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpBufferedSocket.ml
diff -u mldonkey/src/utils/net/tcpBufferedSocket.ml:1.28 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.29
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.28    Thu Jul 14 15:34:15 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Mon Aug  8 16:47:31 2005
@@ -1386,7 +1386,9 @@
             (Unix.string_of_inet_addr host) port;
         close t Closed_connect_failed;
         raise e
-  with e ->
+  with
+    Unix.Unix_error (Unix.ENETUNREACH,_,_) as e -> raise e
+  | e ->
       lprintf "EXCEPTION %s  before connect to host %s:%d\n"
           (Printexc2.to_string e) (Unix.string_of_inet_addr host) port;
       raise e
@@ -1800,7 +1802,7 @@
             old_value := value
           with _ ->
               Hashtbl.add net_stats title (ref value);
-              if !verbose_bandwidth>0 then begin
+              if !verbose_bandwidth > 0 then begin
                   lprintf "[BWS] INIT %s: %Ld\n"
                     title value
               end;