From 83aab9a10ae239baf7a1f6593127b4e00dcea98f Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 30 Jul 2008 15:24:29 +0000
Subject: [PATCH] -Report VM POST failures on VM creation

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

diff --git a/xCAT-server/lib/xcat/plugins/xen.pm b/xCAT-server/lib/xcat/plugins/xen.pm
index 0c7bbe8a3..37cc616ec 100644
--- a/xCAT-server/lib/xcat/plugins/xen.pm
+++ b/xCAT-server/lib/xcat/plugins/xen.pm
@@ -200,7 +200,11 @@ sub power {
     if ($subcommand eq 'on') {
         unless ($dom) {
             my $xml=build_xmldesc($node);
+            my $errstr;
             eval { $dom=$hypconn->create_domain($xml); };
+
+            if ($@) { $errstr = $@; }
+            if ($errstr) { return (1,$errstr); }
             if ($dom) {
                 refresh_vm($dom);
             }