Misc. code cleanup.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2052 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-08-22 14:07:55 +00:00
parent e28b380aac
commit 487b70b1d6

View File

@ -651,7 +651,7 @@ sub processArgs
}
# must have object name(s) -
if (!@::clobjnames && !@::fileobjnames)
if ((scalar(@::clobjnames) == 0) && (scalar(@::fileobjnames) == 0))
{
my $rsp;
$rsp->{data}->[0] =
@ -662,13 +662,13 @@ sub processArgs
# combine object name all object names provided
@::allobjnames = @::clobjnames;
if (@::fileobjnames)
if (scalar(@::fileobjnames) > 0)
{
# add list from stanza or xml file
push @::allobjnames, @::fileobjnames;
}
elsif (@::objfilelist)
elsif (scalar(@::objfilelist) > 0)
{
# add list from "-f" file option
@ -2205,7 +2205,7 @@ sub defls
next;
}
if (!grep(/$obj/, @tmplist))
if (!grep(/^$obj$/, @tmplist))
{
my $rsp;
$rsp->{data}->[0] =