mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

customize: random_seed: avoid one file checking for existing files

Browse Source 
When the random-seed file is found, then avoid checking its existance
again.
This commit is contained in:
Pino Toscano
2016-05-26 13:38:39 +02:00
parent 0f4dfa8282
commit ea41945e88
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
customize/random_seed.ml
View File

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