git.annexia.org
/
libguestfs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
protocol: Handle progress notification messages during FileIn.
[libguestfs.git]
/
perl
/
examples
/
lvs.pl
diff --git
a/perl/examples/lvs.pl
b/perl/examples/lvs.pl
index
152db08
..
1755c89
100755
(executable)
--- 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 ();
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 ();
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 ();
print "Looking for PVs on the disk image\n";
my @pvs = $h->pvs ();