[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyClient.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyClient.ml
diff -u mldonkey/src/networks/donkey/donkeyClient.ml:1.58 
mldonkey/src/networks/donkey/donkeyClient.ml:1.59
--- mldonkey/src/networks/donkey/donkeyClient.ml:1.58   Tue Aug  9 10:54:53 2005
+++ mldonkey/src/networks/donkey/donkeyClient.ml        Mon Aug 15 20:23:34 2005
@@ -2159,7 +2159,10 @@
                       
                 with
                  Unix.Unix_error (Unix.ENETUNREACH,_,_) ->
-                   lprintf_nl () "Network unreachable for IP %s:%d" 
(Ip.to_string ip) port
+                   lprintf_nl () "Network unreachable for IP %s:%d"
+                     (Ip.to_string ip) port;
+                    set_client_disconnected c (Closed_connect_failed);
+                    DonkeySources.source_disconnected c.client_source
                | e -> 
                     lprintf_nl () "Exception %s in client connection to IP 
%s:%d"
                       (Printexc2.to_string e) (Ip.to_string ip) port;