Table.pm would die unceremoniously when faced with undefined argument, tolerate it

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12332 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

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]) {

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) {