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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.34 
mldonkey/src/daemon/common/commonInteractive.ml:1.35
--- mldonkey/src/daemon/common/commonInteractive.ml:1.34        Thu Jun  2 
17:43:03 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml     Fri Jun  3 00:23:11 2005
@@ -122,7 +122,11 @@
         in        
         let new_name = file_commited_name 
             incoming.shdir_dirname file in
-       if Unix2.is_directory file_name then Unix2.safe_mkdir new_name;
+       if Unix2.is_directory file_name then
+         begin
+           Unix2.safe_mkdir new_name;
+           Unix.chmod new_name 0o777
+         end;
         (try
             set_file_disk_name file new_name;
             let best_name = file_best_name file in