X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=tools%2Fvirt-make-fs;h=46edbea6b23c3d0f08a8e358f0c7c55b0a801c2c;hb=b83dc098ab79b99ae647cae38ac77b8c8f259321;hp=f9f65d0c28aa5891d0a6f4778a4ee0b96eb78e15;hpb=f72a3c47428f6eb1c6984124ebb0dae774d5a956;p=libguestfs.git

diff --git a/tools/virt-make-fs b/tools/virt-make-fs
index f9f65d0..46edbea 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";