Add check for avoiding warning messages.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9859 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-06-20 13:40:59 +00:00
parent 2405fd8d6e
commit b06fdb8519

View File

@ -283,7 +283,7 @@ sub noderm
if (scalar(@$nodes)) {
for my $nn ( @$nodes ) {
my $nt = xCAT::DBobjUtils->getnodetype($nn);
if ( $nt =~ /^(cec|frame)$/ ) {
if ( $nt and $nt =~ /^(cec|frame)$/ ) {
my $cnodep = xCAT::DBobjUtils->getchildren($nn);
if ($cnodep) {
my $cnode = join ',', @$cnodep;