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 c4204eff89
commit a1d8dbd67a
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});
}
#-------------------------------------------------------------------