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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonSwarming2.ml
diff -u mldonkey/src/daemon/common/commonSwarming2.ml:1.13 
mldonkey/src/daemon/common/commonSwarming2.ml:1.14
--- mldonkey/src/daemon/common/commonSwarming2.ml:1.13  Sun Aug  7 12:57:21 2005
+++ mldonkey/src/daemon/common/commonSwarming2.ml       Mon Aug  8 16:47:30 2005
@@ -1115,6 +1115,7 @@
                       s.s_verified_bitmap.[i] = '2'
                   ) t.t_t2s_blocks.(i) then begin
 
+                   if !verbose_hidden_errors then
                     lprintf_nl () "Complete block %d of %s is corrupted (wrong 
hash), block is being resetted."
                             i (file_best_name t.t_file);
 
@@ -2340,10 +2341,8 @@
                       string_len < string_length then begin
                         if !verbose_hidden_errors then
                         begin
-                        lprintf_nl () "BAD WRITE";
-                        lprintf_nl () "   for range %Ld-%Ld (string_pos %d)"
+                        lprintf_nl () "BAD WRITE for range %Ld-%Ld (string_pos 
%d)"
                           r.range_begin r.range_end string_pos;
-
                         lprintf_nl () "  received: file_pos:%Ld string:%d %d"
                           file_begin string_begin string_len;
                         lprintf_nl () "  ranges:";
@@ -2863,10 +2862,7 @@
               if p = present then begin
                   lprintf_nl () "ERROR: both appear to be the same!";
                 end;
-
-
-
-(*          exit 2 *)
+             if !exit_on_error then exit 2
             end
 
         with e -> ());