From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 10 Jul 2009 21:01:50 +0000 (+0100)
Subject: Sys::Guestfs::Lib: Exit with error if a libvirt domain appears to have no disks.
X-Git-Tag: 1.0.58~2
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=335a8e3b0efa4c9dee01591134aeeb2b17ae22f5;ds=sidebyside

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

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