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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonFile.ml
diff -u mldonkey/src/daemon/common/commonFile.ml:1.37 
mldonkey/src/daemon/common/commonFile.ml:1.38
--- mldonkey/src/daemon/common/commonFile.ml:1.37       Fri Jul 22 14:32:12 2005
+++ mldonkey/src/daemon/common/commonFile.ml    Mon Aug 29 14:54:59 2005
@@ -897,7 +897,7 @@
     result
   with
     | Not_found -> raise Not_found
-    | _ -> if !verbose_md4 then lprintf_nl () "Checksum computed: chunk 
MISSING";
+    | e -> lprintf_nl () "Checksum computation failed: Exception: %s" 
(Printexc2.to_string e);
     false
 
 let file_mtime file = Unix32.mtime64 (file_fd file)