From fae8bdaf07020bd281cd3d48ac2db174f24c30be Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 6 May 2011 14:16:25 +0000
Subject: [PATCH] Fix kvm clonevm when master includes empty optical drive

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.6@9502 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/kvm.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/kvm.pm b/xCAT-server/lib/xcat/plugins/kvm.pm
index a2af98fb3..9afdbba87 100644
--- a/xCAT-server/lib/xcat/plugins/kvm.pm
+++ b/xCAT-server/lib/xcat/plugins/kvm.pm
@@ -1905,7 +1905,9 @@ sub clone_vm_from_master {
     $url =~ s/,.*//;
     my $destinationpool = get_storage_pool_by_url($url);
     foreach $disk ($newnodexml->findnodes("/domain/devices/disk")) {
-        my $srcfilename = $disk->findnodes("./source")->[0]->getAttribute("file");
+	my ($source) = ($disk->findnodes("./source"));
+	unless ($source) { next; } #most likely an empty cdrom
+        my $srcfilename = $source->getAttribute("file");
         my $filename = $srcfilename;
         $filename =~ s/^.*$mastername/$node/;
         $filename =~ m!\.([^\.]*)\z!;