From b2f01ebcbeed5bc0c954f80283baf7b5ba52256e Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 10 Jul 2009 21:59:46 +0100
Subject: [PATCH] virt-df: Recognise libvirt domains with file-backed disks.

File-backed disks (<source file="...">) didn't get recognised
before.  This patch fixes the problem.
---
 perl/lib/Sys/Guestfs/Lib.pm | 1 +
 1 file changed, 1 insertion(+)

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;
     }
 
-- 
1.8.3.1