[Libguestfs] [PATCH] customize: sles password defaults.

[Cédric Bosdonnat]

---
 customize/password.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/customize/password.ml b/customize/password.ml
index 258d726..1f9b8fe 100644
--- a/customize/password.ml
+++ b/customize/password.ml
@@ -165,6 +165,9 @@ and default_crypto g root =
   | "opensuse", v when v >= 11 -> `SHA512
   | "opensuse", _ -> `MD5
 
+  | "sles", v when v >= 11 -> `SHA512
+  | "sles", _ -> `MD5
+
   | _, _ ->
     let minor = g#inspect_get_minor_version root in
     warning (f_"password: using insecure md5 password encryption for guest of type %s version %d.%d.
-- 
2.1.4