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

9
lib/WebGUI/Asset/Post.pm
View file

@ -321,11 +321,10 @@ Extend the base method to delete the locally cached thread object.
=cut
override DESTROY => sub {
my $self = shift;
$self->{_thread}->DESTROY if (exists $self->{_thread} && ref $self->{_thread} =~ /Thread/);
super();
};
sub DEMOLISH {
my $self = shift;
$self->{_thread}->DESTROY if (exists $self->{_thread} && ref $self->{_thread} =~ /Thread/);
}
#-------------------------------------------------------------------

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

2
lib/WebGUI/Asset/Wobject/GalleryAlbum.pm
View file

@ -312,7 +312,7 @@ Destroy the cached assets
=cut
sub DESTROY {
sub DEMOLISH {
my $self = shift;
for my $key ( qw/ _nextAlbum _prevAlbum / ) {
my $asset = delete $self->{ $key };