[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.63 
mldonkey/src/networks/donkey/donkeyClient.ml:1.64
--- mldonkey/src/networks/donkey/donkeyClient.ml:1.63   Mon Sep 19 10:09:05 2005
+++ mldonkey/src/networks/donkey/donkeyClient.ml        Wed Sep 21 18:11:54 2005
@@ -106,10 +106,9 @@
                     raise Not_found
             in
             let s = DonkeySources.find_source_by_uid uid in
-            DonkeySources.set_request_result s file.file_sources 
File_new_source
+            DonkeySources.set_request_result s file.file_sources 
File_new_source;
         with Not_found -> ()
 
-
 let is_banned c sock = 
   c.client_banned <- Hashtbl.mem banned_ips (fst (peer_addr sock))
 
@@ -1226,7 +1225,7 @@
                     Reliability_reliable | Reliability_neutral -> true
                   | Reliability_suspicious _ -> false) &&
                 List.exists (fun r ->
-                    r.DonkeySources.request_score > expected_score
+                    r.DonkeySources.request_score >= 
CommonSources.possible_score
                 ) s.DonkeySources.source_files then
                 sources := {
                   E.src_ip = ip;