inspect_operating_systems mount_operating_system);
use Pod::Usage;
use Getopt::Long;
-use File::Temp qw/tempfile/;
use Locale::TextDomain 'libguestfs';
=encoding utf8
my $oses = inspect_operating_systems ($g, \%fses);
my @roots = keys %$oses;
-die __"no root device found in this operating system image\n" if @roots == 0;
die __"multiboot operating systems are not supported by virt-tar\n" if @roots > 1;
my $root_dev = $roots[0];