fix call to xdsh and xdcp with no parameters

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2462 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-11-04 15:10:20 +00:00
parent fca5b3fcb9
commit eb81dc5640

View File

@ -3537,8 +3537,12 @@ sub parse_and_run_dsh
{
my ($class, $nodes, $args, $callback, $command, $noderange) = @_;
@ARGV = @{$args}; # get arguments
$::CALLBACK = $callback;
if (!($args)) {
usage_dsh;
exit 1;
}
@ARGV = @{$args}; # get arguments
if ($ENV{'XCATROOT'})
{
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory
@ -3813,8 +3817,12 @@ sub usage_dcp
sub parse_and_run_dcp
{
my ($class, $nodes, $args, $callback, $command, $noderange) = @_;
@ARGV = @{$args}; # get arguments
$::CALLBACK = $callback;
if (!($args)) {
usage_dcp;
exit 1;
}
@ARGV = @{$args}; # get arguments
if ($ENV{'XCATROOT'})
{
$::XCATROOT = $ENV{'XCATROOT'}; # setup xcatroot home directory