[Mldonkey-commits] mldonkey distrib/ChangeLog src/daemon/common/co...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       08/01/07 20:01:29

Modified files:
        distrib        : ChangeLog 
        src/daemon/common: commonShared.ml 

Log message:
        patch #6364

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1343&r2=1.1344
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonShared.ml?cvsroot=mldonkey&r1=1.42&r2=1.43

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1343
retrieving revision 1.1344
diff -u -b -r1.1343 -r1.1344
--- distrib/ChangeLog   7 Jan 2008 19:37:42 -0000       1.1343
+++ distrib/ChangeLog   7 Jan 2008 20:01:29 -0000       1.1344
@@ -15,6 +15,7 @@
 =========
 
 2008/01/07
+6364: MinGW: Fix broken share priorities (thx to vbnuy6)
 6365: HTML: Use option max_name_len in upstats for unhashed files
 
 2008/01/04

Index: src/daemon/common/commonShared.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonShared.ml,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- src/daemon/common/commonShared.ml   2 Jan 2008 16:50:15 -0000       1.42
+++ src/daemon/common/commonShared.ml   7 Jan 2008 20:01:29 -0000       1.43
@@ -195,10 +195,8 @@
   | Some sh    -> 
     try
       let impl = as_shared_impl sh in
-      let codedname = impl.impl_shared_codedname in
-      let idx = String.index codedname '/' in
-      String.sub codedname 0 idx
-    with Not_found -> ""
+      Filename.dirname impl.impl_shared_codedname
+    with _ -> ""
                    
 let shared_prio impl =
   try