… | |
… | |
586 | warn "no draw defined for $self\n"; |
586 | warn "no draw defined for $self\n"; |
587 | } |
587 | } |
588 | |
588 | |
589 | sub DESTROY { |
589 | sub DESTROY { |
590 | my ($self) = @_; |
590 | my ($self) = @_; |
|
|
591 | |
|
|
592 | return if CFClient::in_destruct; |
591 | |
593 | |
592 | delete $WIDGET{$self+0}; |
594 | delete $WIDGET{$self+0}; |
593 | |
595 | |
594 | eval { $self->destroy }; |
596 | eval { $self->destroy }; |
595 | warn "exception during widget destruction: $@" if $@ & $@ != /during global destruction/; |
597 | warn "exception during widget destruction: $@" if $@ & $@ != /during global destruction/; |