[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonShared.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonShared.ml
diff -u mldonkey/src/daemon/common/commonShared.ml:1.20 
mldonkey/src/daemon/common/commonShared.ml:1.21
--- mldonkey/src/daemon/common/commonShared.ml:1.20     Sun Jul 17 16:12:59 2005
+++ mldonkey/src/daemon/common/commonShared.ml  Sun Jul 17 16:36:07 2005
@@ -168,6 +168,7 @@
   
 let shared_unshare s =
   let impl = as_shared_impl s in
+  shared_remove impl;
   try impl.impl_shared_ops.op_shared_unshare impl.impl_shared_val with _ -> ()
 
 let shared_dir = function
@@ -319,15 +320,17 @@
   
 let shared_check_files () =
   let list = ref [] in
+  (* check shared files, store removed files in !list *)
   H.iter (fun s ->
       let name = shared_fullname s in
       if not (Unix32.file_exists name) then list := s :: !list
   ) shareds_by_num;
+  (* unshare removed files *)
   List.iter (fun s -> shared_unshare s) !list;
   files_scanned_size := zero;
   files_scanned := 0;
   List.iter (fun s -> shared_add_directory s) 
-  !!  CommonComplexOptions.shared_directories;
+  !!CommonComplexOptions.shared_directories;
   shared_calculate_total_bytes ()
   
 let impl_shared_info impl =