arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix defect 2832027 rmconn having an issue with PPCconn.pm trying to execute

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3936 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
zhanx 2009-08-04 18:33:52 +00:00
parent 81e6176b6f
commit 8a7d38d30f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl-xCAT/xCAT/PPCconn.pm
View File

@ -49,7 +49,7 @@ sub mkconn_parse_args
return(usage( "No command specified" ));
}
local @ARGV = @$args;
local @ARGV = ref($args) eq 'ARRAY'? @$args:();
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
@ -257,7 +257,7 @@ sub rmconn_parse_args
#############################################
# Get options in command line
#############################################
local @ARGV = @$args;
local @ARGV = ref($args) eq 'ARRAY'? @$args:();
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
@ -268,7 +268,7 @@ sub rmconn_parse_args
#############################################
# Process command-line arguments
#############################################
if ( scalar @$args) {
if ( $args && scalar @$args) {
return(usage( "No additional flag is support by this command" ));
}
##########################################