… | |
… | |
919 | sub destroy { |
919 | sub destroy { |
920 | my ($self) = @_; |
920 | my ($self) = @_; |
921 | |
921 | |
922 | #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1 |
922 | #Carp::cluck "debug\n";#d# #todo# enable: destroy gets called twice because scalar keys {} is 1 |
923 | |
923 | |
|
|
924 | $self->{conn}->send ("ext npc_dialog_end $self->{token}") if $self->{token}; |
924 | delete $self->{conn}{npc_dialog}; |
925 | delete $self->{conn}{npc_dialog}; |
925 | $self->{conn}->disconnect_ext ($self->{token}); |
926 | $self->{conn}->disconnect_ext ($self->{token}); |
926 | |
927 | |
927 | $self->SUPER::destroy; |
928 | $self->SUPER::destroy; |
928 | } |
929 | } |