From 05f665166c05519b8b5d4cd26fbe5e912cc63ba8 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Wed, 17 Sep 2014 12:55:06 +0100
Subject: [PATCH] v2v: Fix capitalization of ovf:volume-type (RHBZ#1142008).

Thanks: Shahar Havivi.
---
 v2v/lib_ovf.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v2v/lib_ovf.ml b/v2v/lib_ovf.ml
index 5dd0f58d97..dad0af7590 100644
--- 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 =