[Libguestfs] [PATCH] Use Mkdtemp.temp_dir instead of Mkdtemp.mkdtemp

--- builder/sigchecker.ml | 2 +- sysprep/sysprep_operation_script.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/builder/sigchecker.ml b/builder/sigchecker.ml index c35d2da..08efa5d 100644 --- a/builder/sigchecker.ml +++ b/builder/sigchecker.ml @@ -54,7 +54,7 @@ let import_keyfile ~gpg ~gpghome ~verbose keyfile = let rec create ~verbose ~gpg ~gpgkey ~check_signature = (* Create a temporary directory for gnupg. *) - let tmpdir = Mkdtemp.mkdtemp (Filename.temp_dir_name // "vb.gpghome.XXXXXX") in + let tmpdir = Mkdtemp.temp_dir "vb.gpghome." "" in rmdir_on_exit tmpdir; (* Make sure we have no check_signature=true with no actual key. *) let check_signature, gpgkey = diff --git a/sysprep/sysprep_operation_script.ml b/sysprep/sysprep_operation_script.ml index d486a88..06d4dfc 100644 --- a/sysprep/sysprep_operation_script.ml +++ b/sysprep/sysprep_operation_script.ml @@ -44,7 +44,7 @@ let rec script_perform ~verbose ~quiet (g : Guestfs.guestfs) root side_effects = match !scriptdir with | Some dir -> dir, false | None -> - let tmpdir = Mkdtemp.mkdtemp (Filename.temp_dir_name // "virt-sysprep.XXXXXX") in + let tmpdir = Mkdtemp.temp_dir "virt-sysprep." "" in tmpdir, true in (* Mount the directory locally. *) -- 1.9.3