v2v: Fix capitalization of ovf:volume-type (RHBZ#1142008).

Thanks: Shahar Havivi.
libguestfs · Sep 17, 2014 · 05f6651 · 05f6651
1 parent fe36b2c
commit 05f6651
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/v2v/lib_ovf.ml b/v2v/lib_ovf.ml
@@ -151,6 +151,7 @@ and get_ostype = function
 
 (* Generate the .meta file associated with each volume. *)
 let create_meta_files verbose output_alloc sd_uuid image_uuid targets =
+  (* Note: Upper case in the .meta, mixed case in the OVF. *)
   let output_alloc_for_rhev =
     match output_alloc with
     | `Sparse -> "SPARSE"
@@ -356,10 +357,11 @@ and add_disks targets guestcaps output_alloc sd_uuid image_uuid vol_uuids ovf =
         | _ ->
           error (f_"RHEV does not support the output format '%s', only raw or qcow2") t.target_format in
 
+      (* Note: Upper case in the .meta, mixed case in the OVF. *)
       let output_alloc_for_rhev =
         match output_alloc with
-        | `Sparse -> "SPARSE"
-        | `Preallocated -> "PREALLOCATED" in
+        | `Sparse -> "Sparse"
+        | `Preallocated -> "Preallocated" in
 
       (* Add disk to <References/> node. *)
       let disk =