From 5311349afa735a81cdf8d07c8ebcc77334ae3eae Mon Sep 17 00:00:00 2001
From: zhaoertao <zhaoertao@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 22 May 2013 06:12:03 +0000
Subject: [PATCH] fix bug 3583: mkhwconn -s cannnot work for firebird in rh mn

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@16385 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCconn.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-xCAT/xCAT/PPCconn.pm b/perl-xCAT/xCAT/PPCconn.pm
index 75cc6f806..19c2f251f 100644
--- a/perl-xCAT/xCAT/PPCconn.pm
+++ b/perl-xCAT/xCAT/PPCconn.pm
@@ -488,6 +488,9 @@ sub mkhwconn
             my $ntype = $$d[4];
             if ($ntype =~ /^(cec|frame|blade)$/)
             {
+                if ($ntype eq "blade") {
+                    delete $opt->{port};
+                }
                 $cnode = xCAT::DBobjUtils::getchildren($node_name, $opt->{port});
             } else {
                 $cnode = $node_name;