From 335a8e3b0efa4c9dee01591134aeeb2b17ae22f5 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 10 Jul 2009 22:01:50 +0100
Subject: [PATCH] Sys::Guestfs::Lib: Exit with error if a libvirt domain
 appears to have no disks.

---
 perl/lib/Sys/Guestfs/Lib.pm | 3 +++
 1 file changed, 3 insertions(+)

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