[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonSwarming1.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonSwarming1.ml
diff -u mldonkey/src/daemon/common/commonSwarming1.ml:1.3 
mldonkey/src/daemon/common/commonSwarming1.ml:1.4
--- mldonkey/src/daemon/common/commonSwarming1.ml:1.3   Fri May 13 21:15:46 2005
+++ mldonkey/src/daemon/common/commonSwarming1.ml       Thu Aug  4 21:45:24 2005
@@ -519,6 +519,11 @@
     match t.t_verifier with
       NoVerification
     | VerificationNotAvailable -> ()
+
+    | ForceVerification ->
+        set_toverify_block t i;
+        set_verified_chunk t i;
+        t.t_verified t.t_nverified_blocks i
     
     | Verification chunks when Array.length chunks = Array.length t.t_blocks ->
         begin
@@ -1771,7 +1776,8 @@
   HS.iter (fun t ->
       match t.t_verifier with
         NoVerification
-      | VerificationNotAvailable -> ()
+      | VerificationNotAvailable
+      | ForceVerification -> ()
       | Verification checksums 
           when Array.length checksums = Array.length t.t_blocks ->
           let rec iter i len pos bsize size =