X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=tools%2Fvirt-make-fs;h=833c8a5145fc4280afdd628b5b85ae5314873b7a;hp=854cc0857512a0a2e62922fe7bee01bb0f0bb204;hb=bc468c87d04b34faacd208c49cca4a5096e5103c;hpb=0089575d4bd50a7ca55d7c3c8caa8a12ae09d40a

diff --git a/tools/virt-make-fs b/tools/virt-make-fs
index 854cc08..833c8a5 100755
--- a/tools/virt-make-fs
+++ b/tools/virt-make-fs
@@ -393,10 +393,15 @@ if (!defined $size) {
     }
 }
 
+$size = int ($size);
+
 # Create the output disk.
 # Take the unusual step of invoking qemu-img here.
 
 my @cmd = ("qemu-img", "create", "-f", $format, $output, $size);
+if ($debug) {
+    print STDERR ("running: ", join (" ", @cmd), "\n");
+}
 system (@cmd) == 0 or
     die __"qemu-img create: failed to create disk image, see earlier error messages\n";