From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Tue, 15 Apr 2008 14:33:08 +0000 (+0100)
Subject: Cosmetic fixes and comments.
X-Git-Tag: 1.0.4~24^2~20
X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=commitdiff_plain;h=479659599edaaf6cd9385ce00750407d61baf0f0

Cosmetic fixes and comments.
---

diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml
index afcab66..16d8e89 100644
--- a/virt-df/virt_df_lvm2.ml
+++ b/virt-df/virt_df_lvm2.ml
@@ -29,7 +29,7 @@ let plugin_name = "LVM2"
 let sector_size = 512
 let sector_size64 = 512L
 
-(* Probe to see if it's an LVM2 PV.  Look for the "LABELONE" label. *)
+(* Probe to see if it's an LVM2 PV. *)
 let rec probe_pv lvm_plugin_id dev =
   try
     let uuid, _ = read_pv_label dev in
@@ -77,7 +77,7 @@ and read_pv_label dev =
 
 and read_metadata dev offset32 len32 =
   if debug then
-    eprintf "metadata: offset 0x%lx len %ld bytes\n" offset32 len32;
+    eprintf "metadata: offset 0x%lx len %ld bytes\n%!" offset32 len32;
 
   (* Check the offset and length are sensible. *)
   let offset64 =
@@ -102,6 +102,8 @@ and read_metadata dev offset32 len32 =
  * what is on these LVs - that will be done in the main code.
  *)
 let list_lvs devs =
+  (* Read the UUID and metadata (again) from each device. *)
+  let uuidmetas = List.map read_pv_label devs in
   []
 
 (* Register with main code. *)