From 2dcb36dcb453561bf038932b95ad89a447f40306 Mon Sep 17 00:00:00 2001
From: wanghuaz <wanghuaz@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 23 Mar 2010 02:57:06 +0000
Subject: [PATCH] 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
---
 xCAT-server/lib/xcat/plugins/lsslp.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/xcat/plugins/lsslp.pm b/xCAT-server/lib/xcat/plugins/lsslp.pm
index e7aa6d9c9..a53e290ad 100644
--- a/xCAT-server/lib/xcat/plugins/lsslp.pm
+++ b/xCAT-server/lib/xcat/plugins/lsslp.pm
@@ -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;