X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=import-to-ovirt.pl;h=5eca7496d7a65071fd546fad656976ebd8536418;hb=8434cf975149a8130f169f6b8022ad4fbc9b1ffe;hp=7e1b39bba9d56de4e764c32b7679c46ee8333d3f;hpb=7edfc4ee67eeed20e0740f7e49bce21e29fa52a4;p=import-to-ovirt.git

diff --git a/import-to-ovirt.pl b/import-to-ovirt.pl
index 7e1b39b..5eca749 100755
--- a/import-to-ovirt.pl
+++ b/import-to-ovirt.pl
@@ -226,6 +226,7 @@ if ($vmtype =~ /^Desktop$/i) {
 
 # Open the guest in libguestfs so we can inspect it.
 my $g = Sys::Guestfs->new ();
+$g->set_program ("virt-import-to-ovirt");
 $g->add_drive_opts ($_, readonly => 1) foreach (@disks);
 $g->launch ();
 my @roots = $g->inspect_os ();