From 59dcc1871bda80d229de56ce1a734c900ad23200 Mon Sep 17 00:00:00 2001
From: lissav <lissav@us.ibm.com>
Date: Wed, 7 May 2014 09:11:03 -0400
Subject: [PATCH]  defect 4115

---
 perl-xCAT/xCAT/DSHCLI.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl-xCAT/xCAT/DSHCLI.pm b/perl-xCAT/xCAT/DSHCLI.pm
index f74ace290..5680c97f9 100644
--- a/perl-xCAT/xCAT/DSHCLI.pm
+++ b/perl-xCAT/xCAT/DSHCLI.pm
@@ -242,6 +242,11 @@ sub execute_dcp
                         \@targets_waiting, \%targets_active
                         );
     }
+    if (scalar(@targets_failed) > 0)
+      {
+          #$::DCP_NODES_FAILED = join ",", @targets_failed;
+          @::DCP_NODES_FAILED =  @targets_failed;
+      }
 
     return (scalar(@targets_failed) + scalar(keys(%unresolved_targets)));
 }