arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

-Dereference some references before undef, in an attempt to ensure the perl GC can catch more available memory

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4108 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-09-08 20:49:48 +00:00
parent 6afb2a3f77
commit 43473e700a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
perl-xCAT/xCAT/Table.pm
View File

@ -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};
}