die __x("{prog}: multiboot operating systems are not supported.\n",
prog => basename ($0))
}
-my %fses = $g->inspect_get_mountpoints ($roots[0]);
+my $root = $roots[0];
+my %fses = $g->inspect_get_mountpoints ($root);
my @fses = sort { length $a <=> length $b } keys %fses;
foreach (@fses) {
$g->mount_options ("", $fses{$_}, $_);
undef $g;
-exit 0;
-
=head1 NON-INTERACTIVE EDITING
C<virt-edit> normally calls out to C<$EDITOR> (or vi) so
guestfish --rw -i -d domname edit /file1 : edit /file2
+=cut
+
+exit 0;
+
=head1 ENVIRONMENT VARIABLES
=over 4