From 479659599edaaf6cd9385ce00750407d61baf0f0 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Tue, 15 Apr 2008 15:33:08 +0100 Subject: Cosmetic fixes and comments. --- virt-df/virt_df_lvm2.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'virt-df/virt_df_lvm2.ml') 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. *) -- cgit