build: Add ./configure --disable-fuse option.

[libguestfs.git] / perl / examples / lvs.pl

diff --git a/perl/examples/lvs.pl b/perl/examples/lvs.pl
index 1a84017..1755c89 100755 (executable)
--- a/perl/examples/lvs.pl
+++ b/perl/examples/lvs.pl
@@ -10,7 +10,7 @@ die "Usage: lvs.pl guest.img\n" if @ARGV != 1 || ! -f $ARGV[0];
 
 print "Creating the libguestfs handle\n";
 my $h = Sys::Guestfs->new ();
-$h->add_drive ($ARGV[0]);
+$h->add_drive_opts ($ARGV[0], format => "raw");
 
 print "Launching, this can take a few seconds\n";
 $h->launch ();