and $qemu_img_supports_compat = 1;
unlink ".test.qcow2";
# Open the guest in libguestfs so we can inspect it.
my $g = Sys::Guestfs->new ();
and $qemu_img_supports_compat = 1;
unlink ".test.qcow2";
# Open the guest in libguestfs so we can inspect it.
my $g = Sys::Guestfs->new ();
$g->add_drive_opts ($_, readonly => 1) foreach (@disks);
$g->launch ();
my @roots = $g->inspect_os ();
$g->add_drive_opts ($_, readonly => 1) foreach (@disks);
$g->launch ();
my @roots = $g->inspect_os ();
my $distro = $g->inspect_get_distro ($root);
my $arch = $g->inspect_get_arch ($root);
my $major_version = $g->inspect_get_major_version ($root);
my $distro = $g->inspect_get_distro ($root);
my $arch = $g->inspect_get_arch ($root);
my $major_version = $g->inspect_get_major_version ($root);
my $product_name = $g->inspect_get_product_name ($root);
my $product_variant = $g->inspect_get_product_variant ($root);
my $product_name = $g->inspect_get_product_name ($root);
my $product_variant = $g->inspect_get_product_variant ($root);
NAMESPACES => 1,
PREFIX_MAP => \%prefix_map,
FORCED_NS_DECLS => \@forced_ns_decls,
NAMESPACES => 1,
PREFIX_MAP => \%prefix_map,
FORCED_NS_DECLS => \@forced_ns_decls,