[Mldonkey-commits] Changes to mldonkey/src/networks/gnutella/gnutellaClients.ml

[mldonkey-commits]

Index: mldonkey/src/networks/gnutella/gnutellaClients.ml
diff -u mldonkey/src/networks/gnutella/gnutellaClients.ml:1.30 
mldonkey/src/networks/gnutella/gnutellaClients.ml:1.31
--- mldonkey/src/networks/gnutella/gnutellaClients.ml:1.30      Thu Aug  4 
21:45:24 2005
+++ mldonkey/src/networks/gnutella/gnutellaClients.ml   Thu Oct  6 10:19:30 2005
@@ -90,8 +90,8 @@
 let download_finished file = 
   if List.memq file !current_files then begin
       file_completed (as_file file);
+      Int64Swarmer.remove_swarmer file.file_swarmer;
       file.file_swarmer <- None;
-      
 (* TODO: maybe this remove file may have a bad effect on sharing *)
       GnutellaGlobals.remove_file file;
       old_files =:= (file.file_name, file_size file) :: !!old_files;