[Mldonkey-commits] Changes to mldonkey/src/config/unix/mlUnix.ml

[mldonkey-commits]

Index: mldonkey/src/config/unix/mlUnix.ml
diff -u mldonkey/src/config/unix/mlUnix.ml:1.8 
mldonkey/src/config/unix/mlUnix.ml:1.9
--- mldonkey/src/config/unix/mlUnix.ml:1.8      Tue Jul 26 21:35:10 2005
+++ mldonkey/src/config/unix/mlUnix.ml  Mon Aug  1 20:09:13 2005
@@ -112,6 +112,14 @@
 
 external statfs : string -> statfs = "statfs_statfs"
 external fstatfs : Unix.file_descr -> statfs = "statfs_fstatfs"
+external glibc_version : unit -> string = "glibc_version"
+
+let glibc_version_num () =
+  begin
+    try
+      let s = Printf.sprintf "%s" (glibc_version ()) in s
+    with e -> ""
+  end
 
 let ( ** ) x y = Int64.mul x y
 let ( ++ ) x y = Int64.add x y