fixed bad hashref slice

This commit is contained in:
Doug Bell 2008-10-29 17:06:54 +00:00
parent 3e1f66a0e7
commit fef2bcdc78

View file

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