more object destruction cleanups

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

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