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

more object destruction cleanups

Browse source
This commit is contained in:
Graham Knop 2010-04-18 18:48:59 -05:00
parent 22619cfb9a
commit 83dbe97687
4 changed files with 11 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -238,13 +238,12 @@ and next threads, and to delete the parent CS.
=cut
override DESTROY => sub {
my $self = shift;
return undef unless defined $self;
$self->{_next}->DESTROY if (defined $self->{_next});
$self->{_previous}->DESTROY if (defined $self->{_previous});
super();
};
sub DEMOLISH {
my $self = shift;
return undef unless defined $self;
$self->{_next}->DESTROY if (defined $self->{_next});
$self->{_previous}->DESTROY if (defined $self->{_previous});
}
#-------------------------------------------------------------------