more object destruction cleanups
This commit is contained in:
parent
c4204eff89
commit
a1d8dbd67a
4 changed files with 11 additions and 34 deletions
|
|
@ -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/);
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue