Return errorcode on exit - Line #43

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@517 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-02-18 20:35:32 +00:00
parent e97c8c0c55
commit 061eb10d56

View File

@ -38,7 +38,11 @@ sub process_request {
eval { require Net::SSL };
if ( $@ ) {
my $callback = $_[1];
$callback->( {data=>[$@]} );
my %output;
$output{errorcode} = 1;
$output{data} = [$@];
$callback->( \%output );
return(1);
}
xCAT::PPC::process_request(__PACKAGE__,@_);