minor fix

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9323 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-04-15 04:57:49 +00:00 · 2011-04-15 04:57:49 +00:00 · 528b9fd1bb
commit 528b9fd1bb
parent e2b08db5bb
1 changed files with 1 additions and 1 deletions
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@ -1742,7 +1742,7 @@ sub process_request {
    #print Dumper(\@failed_nodes); 
    my $hcps = getHCPsOfNodes(\@failed_nodes, $callback);
    if ($request->{command} eq "mkhwconn" ) {
-        if ( grep ("-s", @$request{arg}) ) {
+        if ( grep (/^-s$/, @$request{arg}) ) {
            my $ppctab = xCAT::Table->new('ppc');
            my %newhcp;
            if ( $ppctab ) {