/[mldonkey]/mldonkey/src/daemon/common/commonOptions.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonOptions.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by spiralvoice, Mon May 30 21:02:56 2005 UTC revision 1.59 by spiralvoice, Mon Jun 20 18:56:43 2005 UTC
# Line 86  let _ = Line 86  let _ =
86       lprintf "Exception %s to create dir %s\n"       lprintf "Exception %s to create dir %s\n"
87         (Printexc2.to_string e) file_basedir;         (Printexc2.to_string e) file_basedir;
88       exit 2);       exit 2);
89      Unix2.can_write_to_directory file_basedir;
90    Unix.chdir file_basedir;    Unix.chdir file_basedir;
91    
92    if Sys.file_exists "mlnet.pid" then    if Sys.file_exists "mlnet.pid" then
# Line 108  let _ = Line 109  let _ =
109          Filename.concat config_dir "mlnet_strings"          Filename.concat config_dir "mlnet_strings"
110    in    in
111    Unix2.safe_mkdir (Filename.dirname filename);    Unix2.safe_mkdir (Filename.dirname filename);
112      Unix2.can_write_to_directory (Filename.dirname filename);
113    set_strings_file filename    set_strings_file filename
114    
115    

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26