[Mldonkey-commits] mldonkey/src/utils/lib unix32.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       07/07/03 15:35:08

Modified files:
        src/utils/lib  : unix32.ml 

Log message:
        patch #6068

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/lib/unix32.ml?cvsroot=mldonkey&r1=1.72&r2=1.73

Patches:
Index: unix32.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/lib/unix32.ml,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- unix32.ml   3 Jul 2007 14:23:23 -0000       1.72
+++ unix32.ml   3 Jul 2007 15:35:08 -0000       1.73
@@ -1719,7 +1719,7 @@
 
 let fnamelen dir =
   try
-    Some (min (Int64.to_int (statfs dir).f_fnamelen) Sys.max_string_length)
+    Some (Int64.to_int (min (statfs dir).f_fnamelen (Int64.of_int 
Sys.max_string_length)))
   with e -> None
 
 let disktotal dir =