[Mldonkey-commits] mldonkey/src daemon/common/commonOptions.ml net...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/09/09 14:54:20

Modified files:
        src/daemon/common: commonOptions.ml 
        src/networks/donkey: donkeyServers.ml 

Log message:
        patch #6192

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonOptions.ml?cvsroot=mldonkey&r1=1.215&r2=1.216
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/networks/donkey/donkeyServers.ml?cvsroot=mldonkey&r1=1.71&r2=1.72

Patches:
Index: daemon/common/commonOptions.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonOptions.ml,v
retrieving revision 1.215
retrieving revision 1.216
diff -u -b -r1.215 -r1.216
--- daemon/common/commonOptions.ml      9 Sep 2007 14:44:15 -0000       1.215
+++ daemon/common/commonOptions.ml      9 Sep 2007 14:54:19 -0000       1.216
@@ -1666,7 +1666,7 @@
   else
     if !last_high_id <> Ip.null then
       begin
-        if Ip.usable_ip !last_high_id && !!set_client_ip <> !last_high_id then
+        if Ip.usable !last_high_id && !!set_client_ip <> !last_high_id then
           set_client_ip =:= !last_high_id;
         !last_high_id
       end

Index: networks/donkey/donkeyServers.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/networks/donkey/donkeyServers.ml,v
retrieving revision 1.71
retrieving revision 1.72
diff -u -b -r1.71 -r1.72
--- networks/donkey/donkeyServers.ml    9 Sep 2007 14:44:15 -0000       1.71
+++ networks/donkey/donkeyServers.ml    9 Sep 2007 14:54:20 -0000       1.72
@@ -342,7 +342,7 @@
             M.QueryServerListReq Q.t
           );
 
-          if not (low_id t.M.SetID.ip) && !last_high_id <> t.M.SetID.ip && 
!!use_server_ip then begin
+          if not (low_id t.M.SetID.ip) && !last_high_id <> t.M.SetID.ip && 
!!use_server_ip then
             last_high_id := t.M.SetID.ip;
 
           (* nice and ugly, but it doesn't require any new fields *)