From 8a7d38d30fb1400ef175dd3fe23cd014b2992bd0 Mon Sep 17 00:00:00 2001 From: zhanx Date: Tue, 4 Aug 2009 18:33:52 +0000 Subject: [PATCH] Fix defect 2832027 rmconn having an issue with PPCconn.pm trying to execute git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3936 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- perl-xCAT/xCAT/PPCconn.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-xCAT/xCAT/PPCconn.pm b/perl-xCAT/xCAT/PPCconn.pm index d8a4cf0d7..85bf395f5 100644 --- a/perl-xCAT/xCAT/PPCconn.pm +++ b/perl-xCAT/xCAT/PPCconn.pm @@ -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" )); } ##########################################