1 --- a/version.ml 2018-09-08 15:56:18.919154257 +0200
2 +++ b/version.ml 2018-09-08 15:56:07.544028575 +0200
6 let bdb_version = Bdb.version () in
8 - let split = Str.regexp_string "." in
9 - let major_minor_string major minor =
10 - sprintf "Further details about the BDB environment can be seen by \
11 - executing\ndb%s.%s_stat -x in the KDB and Ptree directories\n" major minor
13 - match Str.split split bdb_version with
14 - | major :: minor :: _ -> major_minor_string major minor
15 - | [] | _ :: [] -> major_minor_string "X" "Y"
17 printf "SKS version %s%s\n"
18 Common.version Common.version_suffix;
21 requirement for recon of SKS %s\n"
22 Common.compatible_version_string;
24 - printf "%s" dbstats_dir
25 + printf "Further details about the BDB environment can be seen by executing\n\
26 + db_stat -x in the KDB and PTree directories\n"