Have xnba.pm more gracefully recover from error conditions

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12580 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-05-09 14:12:20 +00:00
parent 87edafb925
commit 3d008a7b33

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;
}