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
2011-05-06 14:16:25 +00:00
parent 9a1c7d166f
commit fae8bdaf07
1 changed files with 3 additions and 1 deletions
@@ -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!;