The original perl code to handle the children's response doesn't work in some systems, change to another way

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5552 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
wanghuaz 2010-03-23 02:57:06 +00:00
parent 8fda2a8cd6
commit 2dcb36dcb4

View File

@ -2499,8 +2499,8 @@ sub child_response {
# Formatted SLP results
#############################
if ( @$responses[0] =~ /^FORMATDATA6sK4ci$/ ) {
shift @$responses;
foreach ( keys %$responses ) {
my $result = @$responses[1];
foreach ( keys %$result ) {
$slp_result{$_} = 1;
}
next;