more object destruction cleanups

This commit is contained in:
Graham Knop 2010-04-18 18:48:59 -05:00
parent c4204eff89
commit a1d8dbd67a
4 changed files with 11 additions and 34 deletions

View file

@ -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/);
}
#-------------------------------------------------------------------