fix perl error from nodeadd and nodech with no parms
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2435 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
86e4c6d760
commit
b372e5a948
@ -539,7 +539,11 @@ sub nodech
|
||||
$callback->(\%rsp);
|
||||
};
|
||||
|
||||
@ARGV = @{$args};
|
||||
if ($args) {
|
||||
@ARGV = @{$args};
|
||||
} else {
|
||||
@ARGV=();
|
||||
}
|
||||
my %options = ('h|?|help' => \$HELP, 'v|version' => \$VERSION);
|
||||
if (!$addmode) { $options{'d|delete'} = \$deletemode; }
|
||||
if (!GetOptions(%options)) {
|
||||
|
Loading…
Reference in New Issue
Block a user