X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl%2Fexamples%2Flvs.pl;h=1755c899d847b518d423615fd6873f819e8dc097;hb=ad2abf89c364d5ec73fb12af63b053637d99d757;hp=1a840171e60d18a2760762babea6d776cfbe3f82;hpb=8869adf1e811d894088dbb0f371edc23299005c8;p=libguestfs.git

diff --git a/perl/examples/lvs.pl b/perl/examples/lvs.pl
index 1a84017..1755c89 100755
--- 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 ();