--- customize/firstboot.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/customize/firstboot.ml b/customize/firstboot.ml index c4af7a9..29ec544 100644 --- a/customize/firstboot.ml +++ b/customize/firstboot.ml @@ -30,7 +30,9 @@ let unix2dos s = let sanitize_name = let rex = Str.regexp "[^A-Za-z0-9_]" in fun n -> - Str.global_replace rex "-" n + let n = Str.global_replace rex "-" n in + let len = String.length n and max = 60 in + if len >= max then String.sub n 0 max else n (* For Linux guests. *) module Linux = struct -- 2.3.1 _______________________________________________ Libguestfs mailing list [email protected] https://www.redhat.com/mailman/listinfo/libguestfs
