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 (file)
--- 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');
 
        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;
     }
 
        @images = map { $_->getData } @disks;
     }