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

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

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

revision 1.34 by spiralvoice, Sat Sep 17 15:23:08 2005 UTC revision 1.35 by spiralvoice, Thu Oct 6 10:21:06 2005 UTC
# Line 1019  let backup_tar archive files = Line 1019  let backup_tar archive files =
1019            let error = (Printexc2.to_string e) in            let error = (Printexc2.to_string e) in
1020              if error =              if error =
1021                "Gzip.Error(\"error during compression\")"                "Gzip.Error(\"error during compression\")"
1022                && Autoconf.system = "windows"                && Autoconf.windows && arg = "fasttrack.ini" then
               && arg = "fasttrack.ini" then  
1023                (* for whatever reason this error is raised on Windows,                (* for whatever reason this error is raised on Windows,
1024                   but fasttrack.ini is stored correctly *)                   but fasttrack.ini is stored correctly *)
1025                if !verbose_hidden_errors then                if !verbose_hidden_errors then
# Line 1092  let buildinfo () = Line 1091  let buildinfo () =
1091                 if real_glibc_version <> Autoconf.glibc_version                 if real_glibc_version <> Autoconf.glibc_version
1092                   && real_glibc_version <> "" then                   && real_glibc_version <> "" then
1093                     Printf.sprintf " (DANGER: glibc %s present on system)" real_glibc_version else "")                     Printf.sprintf " (DANGER: glibc %s present on system)" real_glibc_version else "")
1094        ^ (if Autoconf.configure_arguments <> "" then "\nConfigure arguments: " ^ Autoconf.configure_arguments else "")        ^ (if Autoconf.configure_arguments <> "" then
1095               "\nConfigure arguments: " ^ Autoconf.configure_arguments else "")
1096        ^ (if !patches_string <> "" then "\n" ^ !patches_string else "")        ^ (if !patches_string <> "" then "\n" ^ !patches_string else "")
1097        ^ "\nFeatures:"        ^ "\nFeatures:"
1098            ^ (if BasicSocket.has_threads () then " threads" else " no-threads")            ^ (if BasicSocket.has_threads () then " threads" else " no-threads")
1099            ^ (if Autoconf.has_zlib then            ^ (let s = Zlib.zlib_version_num () in Printf.sprintf " zlib%s" (if s <> "" then "-" ^ s else ""))
                begin  
                  let s = Zlib.zlib_version_num () in  
                    Printf.sprintf " zlib%s" (if s <> "" then "-" ^ s else "")  
                end  
              else " no-zlib")  
1100            ^ (if Autoconf.has_bzip2 then            ^ (if Autoconf.has_bzip2 then
1101                 begin                 begin
1102                   let s =                   let s =

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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