missings are the not found, not the found.

diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index a0e5ac38cafaa511b695f44fca09e6f4c5e238a5..3a52ae41c87138dadbdf49d18b7eceac6ae8a7d8 100644 (file)
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -704,7 +704,7 @@ let verify_config cfg =
                        (if verify_hvm then [ ("hvm", List.mem Xc.CAP_HVM physinfo.Xc.capabilities) ] else []) @
                        (if verify_directio then [ ("directio", List.mem Xc.CAP_DirectIO physinfo.Xc.capabilities) ] else [])
                        in
-               let missings = List.map fst (List.filter (fun (_, found) -> found) verify) in
+               let missings = List.map fst (List.filter (fun (_, found) -> not found) verify) in
                if missings <> [] then (
                        error "config requires %s" (String.concat ", " missings);
                        exit 1