libguestfs: Handle new-style v1.XX.YY tags.

diff --git a/libguestfs.ml b/libguestfs.ml
index 2fe867a..508cbeb 100644 (file)
--- a/libguestfs.ml
+++ b/libguestfs.ml
@@ -94,6 +94,15 @@ let git_latest_version branch =
     cd %s/repos/%s-%s
     git describe --tags --abbrev=0
   " buildtmp package (quote branch) in
+  (* Branches <= 1.32 are tagged with "1.32.11",
+   * branches >= 1.33 are tagged with "v1.33.11".
+   *)
+  let len = String.length v in
+  let v =
+    if len > 0 && v.[0] = 'v' then
+      String.sub v 1 (len-1)
+    else
+      v in
   vernames v
 
 (* Get the latest commit. *)

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index a3450eb..0d41d33 100644 (file)
--- a/libguestfs_upstream.ml
+++ b/libguestfs_upstream.ml
@@ -135,6 +135,13 @@ and tarball_created version =
 
   let repodir = sprintf "%s/repos/%s-%s" buildtmp package version.branch in
 
+  (* Branches <= 1.32 are tagged with "1.32.11",
+   * branches >= 1.33 are tagged with "v1.33.11".
+   *)
+  let version_tag =
+    if version.minor >= 33 then "v" ^ version.version
+    else version.version in
+
   sh "
     cp -a %s libguestfs
     cd libguestfs
@@ -160,7 +167,7 @@ and tarball_created version =
 
     mv %s %s/tarballs/%s
   " repodir
-    version.version
+    version_tag
     (quote (libguestfs_localconfigure `Git))
     (quote (libguestfs_localenv (supermin version)))
     version.tarball