[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.80 
mldonkey/src/daemon/common/commonOptions.ml:1.81
--- mldonkey/src/daemon/common/commonOptions.ml:1.80    Sat Aug  6 19:44:48 2005
+++ mldonkey/src/daemon/common/commonOptions.ml Sun Aug  7 10:54:08 2005
@@ -35,7 +35,7 @@
 
 let home_dir =
   match Autoconf.system with
-  | "windows" -> Filename.concat "." config_dir_basename
+  | "windows" -> "."
   | _ -> Filename.concat (try Sys.getenv "HOME" with _ -> ".") 
config_dir_basename
 
 let installer_ini = create_options_file (Filename.concat home_dir
@@ -85,7 +85,7 @@
   if Sys.file_exists (Filename.concat (Sys.getcwd ()) "downloads.ini") then
     "."
   else
-    if Autoconf.system = "windows" then
+    if Autoconf.system = "windows" && file_basedir_pre <> home_dir then
       match String2.split file_basedir_pre ':' with
       | drive :: directory :: _ ->
           Unix.chdir (drive ^ ":\\");