[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.29 
mldonkey/src/utils/lib/unix32.ml:1.30
--- mldonkey/src/utils/lib/unix32.ml:1.29       Thu Jun  2 17:43:04 2005
+++ mldonkey/src/utils/lib/unix32.ml    Fri Jun  3 00:23:11 2005
@@ -139,7 +139,9 @@
     let multi_rename t f file =
       check_destroyed t;
       close t;
-      Unix2.safe_mkdir (Filename.dirname (Filename.concat f file));
+      (let d = (Filename.dirname (Filename.concat f file)) in
+        Unix2.safe_mkdir d;
+       Unix.chmod d 0o777);
       Unix2.rename t.filename (Filename.concat f file);
       destroy t