diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm index 5557ebe7e..691c12841 100644 --- a/perl-xCAT/xCAT/Table.pm +++ b/perl-xCAT/xCAT/Table.pm @@ -2044,6 +2044,7 @@ sub getNodesAttribs { return dbc_call($self,'getNodesAttribs',@_); } my $nodelist = shift; + unless ($nodelist) { $nodelist = []; } #common to be invoked with undef seemingly my %options=(); my @attribs; if (ref $_[0]) { diff --git a/xCAT-server/lib/xcat/plugins/blade.pm b/xCAT-server/lib/xcat/plugins/blade.pm index 95c1fe0b9..d15675ae2 100644 --- a/xCAT-server/lib/xcat/plugins/blade.pm +++ b/xCAT-server/lib/xcat/plugins/blade.pm @@ -3695,6 +3695,7 @@ sub filter_nodes{ sub build_more_info{ my $noderange=shift; my $callback=shift; + unless ($noderange) { return []; } my $mptab = xCAT::Table->new("mp"); my @moreinfo=(); unless ($mptab) {