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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyServers.ml
diff -u mldonkey/src/networks/donkey/donkeyServers.ml:1.30 
mldonkey/src/networks/donkey/donkeyServers.ml:1.31
--- mldonkey/src/networks/donkey/donkeyServers.ml:1.30  Tue May 17 13:18:05 2005
+++ mldonkey/src/networks/donkey/donkeyServers.ml       Mon Jun  6 21:23:11 2005
@@ -318,7 +318,9 @@
       (* nice and ugly, but it doesn't require any new fields *)
       set_server_state s (Connected 
           ( match s.server_cid with
-              Some t -> if Ip.valid t then (-2) else (-1)
+              Some t -> (match Ip.to_ints t with
+                          | _, _, _, 0 -> (-1)
+                          | _ -> (-2))
               | _ -> (-1)
           )
         );