From aa859d29bde8c0ba65a5e7a877edde10bf845df2 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 27 Feb 2012 09:10:04 +0000
Subject: [PATCH] fix bug 3492916 :Hardware connection issue between HMC and
 CEC

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11695 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index 705148ea0..24238f20a 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -2443,7 +2443,7 @@ sub getHCPsOfNodes
                 my $i = 0;
                 unless ( $request->{sfp} ) {
                     for my $n (@$nodes) {
-                        if (@$typeref[$i++] =~ /^fsp|bpa$/) {
+                        if ($$typeref{$n} =~ /^fsp|bpa$/) {
                             my $np = $ppctab->getNodeAttribs( $n, [qw(parent)]);
                             if ($np)  { # use parent(frame/cec)'s sfp attributes first,for high end machine with 2.5/2.6+ database
                                 my $psfp = $ppctab->getNodeAttribs( $np->{parent}, [qw(sfp)]);
@@ -2467,7 +2467,7 @@ sub getHCPsOfNodes
                         $newhcp{$n}{hcp} = [$sfp];
                         $newhcp{$n}{num} = 1;  
                         # set the sfp attribute to the database
-                        if (@$typeref[$i++] =~ /^fsp|bpa$/) {
+                        if ($$typeref{$n} =~ /^fsp|bpa$/) {
                             my $np = $ppctab->getNodeAttribs( $n, [qw(parent)]);
                             $sfphash{$np}{sfp} = $sfp if ( $np );                 
                         }