From 43473e700aac3dfb9e81d62da8b36e2cb80d7521 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 8 Sep 2009 20:49:48 +0000
Subject: [PATCH] -Dereference some references before undef, in an attempt to
 ensure the perl GC can catch more available memory

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

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index f5e55637f..c86e00af3 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -1425,6 +1425,12 @@ sub _clear_cache { #PRIVATE FUNCTION TO EXPIRE CACHED DATA EXPLICITLY
     }
     #it shouldn't have been zero, but whether it was 0 or 1, ensure that the cache is gone
     $self->{_use_cache}=0; # Signal slow operation to any in-flight operations that may fail with empty cache
+    if (ref $self->{_tablecache}) {
+        undef %{$self->{_tablecache}};
+    }
+    if (ref $self->{_nodecache}) {
+        undef %{$self->{_nodecache}};
+    }
     undef $self->{_tablecache};
     undef $self->{_nodecache};
 }