From ea0fe3acd6cf8eaabfbc7f2a8deefed3826b0f4e Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 6 Jun 2011 18:47:13 +0000
Subject: [PATCH] Fix Table.pm to absolutely refuse to use cache when unusable

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

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index f64eee146..07c5cf84d 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -350,7 +350,12 @@ sub _set_use_cache {
     if ($dbworkerpid) {
         return dbc_call($self,'_set_use_cache',@_);
     }
-    $self->{_use_cache} = shift;
+    
+    my $usecache = shift;
+    if ($usecache and not $self->{_tablecache}) {
+	return; #do not allow cache to be enabled while the cache is broken
+    }
+    $self->{_use_cache} = $usecache;
 }
 #--------------------------------------------------------------------------------