Have xnba.pm more gracefully recover from error conditions

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@12581 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-05-09 14:13:00 +00:00
parent 9ccc5d8def
commit 03c9080081

View File

@ -263,6 +263,9 @@ sub setstate {
my $errored = 0;
sub pass_along {
my $resp = shift;
if ($resp->{error} and not ref $resp->{error}) {
$resp->{error} = [ $resp->{error} ];
}
if ($resp and ($resp->{errorcode} and $resp->{errorcode}->[0]) or ($resp->{error} and $resp->{error}->[0])) {
$errored=1;
}