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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonComplexOptions.ml
diff -u mldonkey/src/daemon/common/commonComplexOptions.ml:1.31 
mldonkey/src/daemon/common/commonComplexOptions.ml:1.32
--- mldonkey/src/daemon/common/commonComplexOptions.ml:1.31     Wed Aug 31 
23:55:26 2005
+++ mldonkey/src/daemon/common/commonComplexOptions.ml  Thu Sep  8 12:44:53 2005
@@ -1074,7 +1074,9 @@
     "MLNet Multi-Network p2p client version " ^ Autoconf.current_version
       ^ (if Autoconf.scm_version <> "" then "\nSCM version info: " ^ 
Autoconf.scm_version else "")
       ^ "\nNetworks: " ^ !networks_string
-      ^ "\nOcaml version: " ^ Autoconf.ocaml_version
+      ^ "\nOcaml version: " ^ Sys.ocaml_version
+      ^ (let uname = Unix32.uname () in
+          if uname <> "" then Printf.sprintf "\nSystem info: %s" uname else "")
       ^ "\nBuild on: " ^ Autoconf.build_system
           ^ (if Autoconf.glibc_version <> "" then " with glibc " ^ 
Autoconf.glibc_version else "")
          ^ (let real_glibc_version = MlUnix.glibc_version_num () in