From 91cc6ff09dd89b7fa396e33dd52694d1f1d5efe5 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 19 Feb 2010 18:44:02 +0000
Subject: [PATCH] -Fix mistake in previous change
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5241 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
perl-xCAT/xCAT/Table.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index c3c588455..2790b14fa 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -1973,7 +1973,8 @@ sub _build_cache { #PRIVATE FUNCTION, PLEASE DON'T CALL DIRECTLY
if ($dbworkerpid) {
return dbc_call($self,'_build_cache',@_);
}
- my $refresh = shift;
+ my $attriblist = shift;
+ my $refresh = not ref $attriblist; #if attriblist is not a reference, it is a refresh request
if (not $refresh and $self->{_cache_ref}) { #we have active cache reference, increment counter and return
#TODO: ensure that the cache isn't somehow still ludirously old
$self->{_cache_ref} += 1;
@@ -1986,7 +1987,6 @@ sub _build_cache { #PRIVATE FUNCTION, PLEASE DON'T CALL DIRECTLY
my $oldusecache = $self->{_use_cache}; #save previous 'use_cache' setting
$self->{_use_cache} = 0; #This function must disable cache
#to function
- my $attriblist = shift;
my $nodekey = "node";
if (defined $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol}) {
$nodekey = $xCAT::Schema::tabspec{$self->{tabname}}->{nodecol}