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

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       06/06/29 15:58:53

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

Log message:
        patch #5213

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.908&r2=1.909
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonInteractive.ml?cvsroot=mldonkey&r1=1.72&r2=1.73

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.908
retrieving revision 1.909
diff -u -b -r1.908 -r1.909
--- distrib/ChangeLog   29 Jun 2006 15:56:44 -0000      1.908
+++ distrib/ChangeLog   29 Jun 2006 15:58:53 -0000      1.909
@@ -15,6 +15,7 @@
 =========
 
 2006/06/29
+5213: Swarmer: Commit only primary downloads (pango)
 5212: Fix DNS lookup of localhost (pango)
       SIGTERM & SIGINT support for GTK2 GUI
 

Index: src/daemon/common/commonInteractive.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonInteractive.ml,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- src/daemon/common/commonInteractive.ml      27 Jun 2006 10:38:35 -0000      
1.72
+++ src/daemon/common/commonInteractive.ml      29 Jun 2006 15:58:53 -0000      
1.73
@@ -198,7 +198,8 @@
   if impl.impl_file_state = FileDownloaded then
     let subfiles = file_files file in
     match subfiles with
-      file :: secondary_files ->
+      primary :: secondary_files ->
+       if primary == file then
        (try
          let file_name = file_disk_name file in
          let incoming =