Third fix for nodelist.status

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9405 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-04-26 16:54:41 +00:00
parent 8041eae6c8
commit c269fa50b6
1 changed files with 4 additions and 3 deletions
--- a/perl-xCAT/xCAT/NodeRange.pm
+++ b/perl-xCAT/xCAT/NodeRange.pm
@@ -136,10 +136,11 @@ sub nodesbycriteria {
        }
       if ($tab eq "nodelist") { #fun caching interaction
 	 my $neednewcache=0;
-	 foreach (@cols) {
-	   unless (grep /^$_\z/,@cachedcolumns) {
+	 my $nlcol;
+	 foreach $nlcol (@cols) {
+	   unless (grep /^$nlcol\z/,@cachedcolumns) {
 	     $neednewcache=1;
-	     push @cachedcolumns,$_;
+	     push @cachedcolumns,$nlcol;
 	   }
 	 }
 	 if ($neednewcache) {