/[mldonkey]/mldonkey/src/utils/lib/options.ml4
ViewVC logotype

Diff of /mldonkey/src/utils/lib/options.ml4

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

revision 1.15 by spiralvoice, Fri Aug 26 21:12:23 2005 UTC revision 1.16 by spiralvoice, Thu Oct 27 21:29:49 2005 UTC
# Line 821  let save opfile = Line 821  let save opfile =
821      let basename = Filename.basename filename in      let basename = Filename.basename filename in
822      let old_config = Filename.concat dirname "old_config" in      let old_config = Filename.concat dirname "old_config" in
823      if not (Sys.file_exists old_config) then Unix.mkdir old_config 0o755;      if not (Sys.file_exists old_config) then Unix.mkdir old_config 0o755;
824      let old_file = Filename.concat old_config filename in      let old_file = Filename.concat old_config basename in
825      let old_old_file = filename ^ ".old" in      let old_old_file = filename ^ ".old" in
826      if not (Sys.file_exists old_file) && (Sys.file_exists old_old_file) then      if not (Sys.file_exists old_file) && (Sys.file_exists old_old_file) then
827        Sys.rename old_old_file old_file;        Sys.rename old_old_file old_file;

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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