more bug fixes

This commit is contained in:
JT Smith 2005-02-23 20:42:09 +00:00
parent 1dc555e078
commit 7e0a5b13b9
8 changed files with 37 additions and 14 deletions

View file

@ -107,6 +107,7 @@ sub definition {
sub DESTROY {
my $self = shift;
return unless defined $self;
$self->{_next}->DESTROY if (exists $self->{_next});
$self->{_previous}->DESTROY if (exists $self->{_previous});
$self->SUPER::DESTROY;