use strict;
use Sys::Guestfs;
+use Sys::Guestfs::Lib qw(feature_available);
use Pod::Usage;
use Getopt::Long;
# Run libguestfs.
my $g = Sys::Guestfs->new ();
- $g->add_drive ($output);
+ $g->add_drive_opts ($output, format => $format);
$g->launch ();
- if ($type eq "ntfs") {
- $g->available ([ "ntfs3g" ]);
+ if ($type eq "ntfs" && !feature_available ($g, "ntfs3g", "ntfsprogs")) {
+ die __"virt-make-fs: NTFS support was disabled when libguestfs was compiled\n"
}
# Partition the disk.
return $pipe;
}
+=head1 SHELL QUOTING
+
+Libvirt guest names can contain arbitrary characters, some of which
+have meaning to the shell such as C<#> and space. You may need to
+quote or escape these characters on the command line. See the shell
+manual page L<sh(1)> for details.
+
=head1 SEE ALSO
L<guestfish(1)>,
=head1 AUTHOR
-Richard W.M. Jones L<http://et.redhat.com/~rjones/>
+Richard W.M. Jones L<http://people.redhat.com/~rjones/>
=head1 COPYRIGHT