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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonOptions.ml
diff -u mldonkey/src/daemon/common/commonOptions.ml:1.58 
mldonkey/src/daemon/common/commonOptions.ml:1.59
--- mldonkey/src/daemon/common/commonOptions.ml:1.58    Mon May 30 21:02:56 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Mon Jun 20 18:56:43 2005
@@ -86,6 +86,7 @@
      lprintf "Exception %s to create dir %s\n"
        (Printexc2.to_string e) file_basedir;
      exit 2);
+  Unix2.can_write_to_directory file_basedir;
   Unix.chdir file_basedir;
 
   if Sys.file_exists "mlnet.pid" then
@@ -108,6 +109,7 @@
         Filename.concat config_dir "mlnet_strings"
   in
   Unix2.safe_mkdir (Filename.dirname filename);
+  Unix2.can_write_to_directory (Filename.dirname filename);
   set_strings_file filename