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

@@ -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;