X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=perl%2Fexamples%2Flvs.pl;h=1755c899d847b518d423615fd6873f819e8dc097;hp=152db08824698b75fe5608271286f99f74a71dea;hb=428a45c3e15f03e9861e1b551e1ae8da821dba5f;hpb=9908e03e922b670437bcd89b6873f9ebc914567e

diff --git a/perl/examples/lvs.pl b/perl/examples/lvs.pl
index 152db08..1755c89 100755
--- a/perl/examples/lvs.pl
+++ b/perl/examples/lvs.pl
@@ -10,11 +10,10 @@ 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 ();
-$h->wait_ready ();
 
 print "Looking for PVs on the disk image\n";
 my @pvs = $h->pvs ();