more bug fixes
This commit is contained in:
parent
1dc555e078
commit
7e0a5b13b9
8 changed files with 37 additions and 14 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue