[Mldonkey-commits] mldonkey distrib/ChangeLog src/utils/cdk/filena...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       08/03/11 11:01:01

Modified files:
        distrib        : ChangeLog 
        src/utils/cdk  : filename2.ml 

Log message:
        patch #6458

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1364&r2=1.1365
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/utils/cdk/filename2.ml?cvsroot=mldonkey&r1=1.7&r2=1.8

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1364
retrieving revision 1.1365
diff -u -b -r1.1364 -r1.1365
--- distrib/ChangeLog   7 Mar 2008 19:39:09 -0000       1.1364
+++ distrib/ChangeLog   11 Mar 2008 11:01:01 -0000      1.1365
@@ -14,6 +14,10 @@
 ChangeLog
 =========
 
+2008/03/11
+6458: Fix commit bug when filesystem reports negative values
+      for maximum filename length
+
 2008/03/07
 6451: BT: Implement minimum of 3 (like max_upload_slots)
       for option max_bt_uploaders

Index: src/utils/cdk/filename2.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/utils/cdk/filename2.ml,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- src/utils/cdk/filename2.ml  19 Feb 2007 21:19:44 -0000      1.7
+++ src/utils/cdk/filename2.ml  11 Mar 2008 11:01:01 -0000      1.8
@@ -226,7 +226,7 @@
     | _ -> sys_checked_name in
 
   let length_checked_name =
-    if namemax = 0 || String.length sys_checked_name < namemax then
+    if namemax < 1 || String.length sys_checked_name < namemax then
       fs_checked_name
     else
       let ext = extension fs_checked_name in