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:
parent
8fda2a8cd6
commit
2dcb36dcb4
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user