X-Git-Url: http://git.annexia.org/?p=import-to-ovirt.git;a=blobdiff_plain;f=import-to-ovirt.pl;h=abb557b5cdb4f57324d02c28e10a7f5e24d600c5;hp=112e6d6f9ee9c34b614ffab37c9f9cef6acc0c60;hb=09dfd172c7933d6ce5ae27e7c1baeef502e5fd0f;hpb=001e24ec7af047cdf3c5ccb535468c78a89dcdba

diff --git a/import-to-ovirt.pl b/import-to-ovirt.pl
index 112e6d6..abb557b 100755
--- a/import-to-ovirt.pl
+++ b/import-to-ovirt.pl
@@ -242,7 +242,7 @@ unlink ".test.qcow2";
 
 # Open the guest in libguestfs so we can inspect it.
 my $g = Sys::Guestfs->new ();
-$g->set_program ("virt-import-to-ovirt");
+eval { $g->set_program ("virt-import-to-ovirt"); };
 $g->add_drive_opts ($_, readonly => 1) foreach (@disks);
 $g->launch ();
 my @roots = $g->inspect_os ();