On Thu, May 26, 2016 at 01:45:05PM +0200, Pino Toscano wrote: > When the random-seed file is found, then avoid checking its existance > again. > --- > customize/random_seed.ml | 9 ++++++--- > 1 file changed, 6 insertions(+), 3 deletions(-) > > diff --git a/customize/random_seed.ml b/customize/random_seed.ml > index e4c955e..1633aed 100644 > --- a/customize/random_seed.ml > +++ b/customize/random_seed.ml > @@ -35,7 +35,7 @@ let rec set_random_seed (g : Guestfs.guestfs) root = > List.iter ( > fun file -> > if g#is_file file then ( > - make_random_seed_file g file; > + make_random_seed_file g file ~exists:true; > created := true > ) > ) files; > @@ -71,8 +71,11 @@ let rec set_random_seed (g : Guestfs.guestfs) root = > > !created > > -and make_random_seed_file g file = > - let file_exists = g#is_file file in > +and make_random_seed_file ?exists g file = > + let file_exists = > + match exists with > + | None -> g#is_file file > + | Some b -> b in > let n = > if file_exists then ( > let n = Int64.to_int (g#filesize file) in Seems to be quite a detailed optimization, but sure, ACK. What was the problem this was trying to address?