# HG changeset patch # User Rob Hoes CA-34617: Ignore empty type-11 SMBIOS strings Empty Type-11 OEM strings will not be place in the host metadata and XenStore anymore. Signed-off-by: Rob Hoes diff -r 268949f04063 ocaml/xapi/bios_strings.ml --- a/ocaml/xapi/bios_strings.ml Wed Nov 04 14:37:45 2009 +0000 +++ b/ocaml/xapi/bios_strings.ml Thu Nov 05 10:20:49 2009 +0000 @@ -59,8 +59,10 @@ let c = String.index_from result b '\n' in let str = "oem-" ^ (string_of_int index) in let value = trim (remove_invisible (String.sub result (b+2) (c-b-2))) in - print_endline value; - (str, value) :: loop (index+1) c + if value <> "" then + (str, value) :: loop (index+1) c + else + loop index c with _ -> [] in standard @ (loop (n+1) 0)