Libguestfs - Oct 2015 - [PATCH] customize: sles password defaults.

---
 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