Override XDG_CONFIG_DIRS to make virt-builder use global configuration.

[goaljobs-goals.git] / libguestfs.ml

diff --git a/libguestfs.ml b/libguestfs.ml
index f3759ac..2fe867a 100644 (file)
--- a/libguestfs.ml
+++ b/libguestfs.ml
@@ -59,6 +59,14 @@ let vernames version =
         url = url }
   )
 
+(* For libguestfs <= 1.24, we need an old supermin 4 binary. *)
+let supermin = function
+  | { major = 1; minor = i } when i <= 24 ->
+    let home = Sys.getenv "HOME" in
+    Some ( home // "d/supermin4/src/supermin",
+           home // "d/supermin4/helper/supermin-helper" )
+  | _ -> None
+
 (* Clone or update a repo to the latest version on a branch, by force.
  * It is cached in name = $buildtmp/repos/<package>-<branch>
  *)