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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonUploads.ml
diff -u mldonkey/src/daemon/common/commonUploads.ml:1.26 
mldonkey/src/daemon/common/commonUploads.ml:1.27
--- mldonkey/src/daemon/common/commonUploads.ml:1.26    Sat May 28 11:19:42 2005
+++ mldonkey/src/daemon/common/commonUploads.ml Mon Jun 20 18:56:44 2005
@@ -420,6 +420,7 @@
 let build_tiger_tree_file uid ttr = 
   let s = make_tiger_tree ttr in
   Unix2.safe_mkdir "ttr";
+  Unix2.can_write_to_directory "ttr";
   File.from_string (Filename.concat "ttr" (Uid.to_file_string uid)) s
   
 let rec start_job_for sh (wanted_id, handler) =