diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2009-07-10 21:59:46 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2009-07-10 21:59:46 +0100 |
| commit | b2f01ebcbeed5bc0c954f80283baf7b5ba52256e (patch) | |
| tree | 9deb90a9777cb529416a9b3c27f8d68399b7131c /perl | |
| parent | 995715ebf9935a64f0321c09a527538706aa3cb7 (diff) | |
| download | libguestfs-b2f01ebcbeed5bc0c954f80283baf7b5ba52256e.tar.gz libguestfs-b2f01ebcbeed5bc0c954f80283baf7b5ba52256e.tar.xz libguestfs-b2f01ebcbeed5bc0c954f80283baf7b5ba52256e.zip | |
virt-df: Recognise libvirt domains with file-backed disks.
File-backed disks (<source file="...">) didn't get recognised
before. This patch fixes the problem.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Sys/Guestfs/Lib.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index 44c4d565..4ab75258 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -174,6 +174,7 @@ sub open_guest my $p = XML::XPath->new (xml => $xml); my @disks = $p->findnodes ('//devices/disk/source/@dev'); + push (@disks, $p->findnodes ('//devices/disk/source/@file')); @images = map { $_->getData } @disks; } |