From 9ddf4569e3d6ab5252505d438231b8f160f27d2d Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 15 Jul 2009 18:20:16 +0000
Subject: [PATCH] fix for bug 2821739: check the whether the grptab is null
 before using it.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3799 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/NodeRange.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/perl-xCAT/xCAT/NodeRange.pm b/perl-xCAT/xCAT/NodeRange.pm
index d904857f5..53eaea329 100644
--- a/perl-xCAT/xCAT/NodeRange.pm
+++ b/perl-xCAT/xCAT/NodeRange.pm
@@ -90,12 +90,14 @@ sub expandatom {
 
   # check to see if atom is a defined group name that didn't have any current members                                               
   if ( scalar @nodes == 0 ) {                                                                                                       
-    #for my $row ( $nodegroup->getAllAttribs('groupname') ) {                                                                        
-    for my $row ( $grptab->getAllAttribs('groupname') ) {                                                                        
-      if ( $row->{groupname} eq $atom ) {                                                                                           
-        return ();                                                                                                                  
-      }                                                                                                                             
-    }                                                                                                                               
+    if($grptab) {
+        my @grouplist = $grptab->getAllAttribs('groupname');
+        for my $row ( @grouplist ) { 
+            if ( $row->{groupname} eq $atom ) { 
+                return ();                                                                                                                  
+            } 
+        }
+     }
   }
 
 	if ($atom =~ m/^[0-9]+\z/) {    # if only numbers, then add the prefix