[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml |
Date: |
Fri, 02 Sep 2005 19:26:52 -0400 |
Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.39
mldonkey/src/utils/lib/unix32.ml:1.40
--- mldonkey/src/utils/lib/unix32.ml:1.39 Fri Sep 2 22:39:59 2005
+++ mldonkey/src/utils/lib/unix32.ml Fri Sep 2 23:26:51 2005
@@ -329,7 +329,6 @@
let create dirname files =
Unix2.safe_mkdir dirname;
- Unix2.can_write_to_directory dirname;
let rec iter files pos files2 =
match files with
[] ->
@@ -350,7 +349,6 @@
| (filename, size) :: tail ->
let temp_filename = Filename.concat dirname filename in
Unix2.safe_mkdir (Filename.dirname temp_filename);
- Unix2.can_write_to_directory (Filename.dirname temp_filename);
let fd = FDCache.create temp_filename in
let _ = FDCache.local_force_fd fd true in
iter tail (pos ++ size)