xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-06-11 07:40:11 +00:00
Code Issues Releases Wiki Activity

In getobjdefs() don't bother looking up the whole definition if only a list of objects is requested.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1064 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott
2008-04-15 16:52:17 +00:00
parent f15a387209
commit 42c4b59c51
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
perl-xCAT-2.0/xCAT/DBobjUtils.pm
View File

@ -154,6 +154,16 @@ sub getobjdefs
%typehash = %$hash_ref;
@::foundTableList = ();
if ($::ATTRLIST eq "none") {
# just return the list of obj names
foreach my $objname (sort (keys %typehash))
{
my $type = $typehash{$objname};
$objhash{$objname}{'objtype'} = $type;
}
return %objhash;
}
foreach my $objname (sort (keys %typehash))
{