[Pkg-libvirt-commits] [libguestfs] 63/78: builder: If using -v (verbose), ensure #disk_create runs verbose too.

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to branch experimental
in repository libguestfs.

commit e1a82bb13064db97c2918485a0d9c52329677e62
Author: Richard W.M. Jones <rjones at redhat.com>
Date:   Wed Apr 16 21:12:30 2014 +0100

    builder: If using -v (verbose), ensure #disk_create runs verbose too.
---
 builder/builder.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/builder/builder.ml b/builder/builder.ml
index 062dbb9..35f5780 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -533,7 +533,10 @@ let main () =
       msg (f_"Resizing (using virt-resize) to expand the disk to %s")
         (human_size osize);
       let preallocation = if oformat = "qcow2" then Some "metadata" else None in
-      (new G.guestfs ())#disk_create ?preallocation ofile oformat osize;
+      let () =
+        let g = new G.guestfs () in
+        if debug then ( g#set_trace true; g#set_verbose true );
+        g#disk_create ?preallocation ofile oformat osize in
       let cmd =
         sprintf "virt-resize%s%s%s --output-format %s%s%s %s %s"
           (if debug then " --verbose" else " --quiet")

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git