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:
lissav 2008-10-31 13:38:57 +00:00
parent 86e4c6d760
commit b372e5a948

View File

@ -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)) {