oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed semi-rare memory leak in getLineage

Browse source
This commit is contained in:
Paul Driver 2009-08-19 20:32:05 +00:00
parent 3d1ed2f83f
commit 0a0ee3e6df
3 changed files with 54 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Asset.pm
View file

@ -567,11 +567,12 @@ Completely remove an asset from existence.
sub DESTROY {
my $self = shift;
# something bad happens when the following is enabled, not sure why
# must check this out later
#$self->{_parent}->DESTROY if (exists $self->{_parent});
$self->{_firstChild}->DESTROY if (exists $self->{_firstChild});
$self->{_lastChild}->DESTROY if (exists $self->{_lastChild});
# Let the parent be garbage collected if no one else is referencing
# him. firstChild and lastChild are weak references, so no need to
# worry about them here.
delete $self->{_parent};
$self = undef;
}