Sys::Guestfs::Lib: Exit with error if a libvirt domain appears to have no disks.

[libguestfs.git] / perl / lib / Sys / Guestfs / Lib.pm

diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm
index 4ab7525..27a7b9e 100644 (file)
--- a/perl/lib/Sys/Guestfs/Lib.pm
+++ b/perl/lib/Sys/Guestfs/Lib.pm
@@ -175,6 +175,9 @@ 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'));
+
+       die "$images[0] seems to have no disk devices\n" unless @disks;
+
        @images = map { $_->getData } @disks;
     }