From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 10 Jul 2009 20:59:46 +0000 (+0100)
Subject: virt-df: Recognise libvirt domains with file-backed disks.
X-Git-Tag: 1.0.58~3
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=b2f01ebcbeed5bc0c954f80283baf7b5ba52256e

virt-df: Recognise libvirt domains with file-backed disks.

File-backed disks (<source file="...">) didn't get recognised
before.  This patch fixes the problem.
---

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 44c4d56..4ab7525 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;
     }