Commit b94fb070 authored by Michael Gray's avatar Michael Gray
Browse files

Z:Context::ZMQ: disconnect_recv_callback on close.

parent e0957a79
......@@ -82,6 +82,7 @@ sub close {
$self->zircon_trace;
$self->_request_callback(undef);
$self->_after_request_callback(undef);
$self->disconnect_recv_callback;
return;
}
......
......@@ -19,6 +19,14 @@ sub _init {
return $self->SUPER::_init($args);
}
sub close {
my ($self) = @_;
$self->zircon_trace;
$self->SUPER::close;
delete $self->{'widget'};
return;
}
# timeouts
sub timeout {
......@@ -59,7 +67,11 @@ sub connect_recv_callback {
sub disconnect_recv_callback {
my ($self) = @_;
$self->widget->fileevent(
my $w = $self->widget;
return unless Tk::Exists($w);
$w->fileevent(
$self->recv_fh,
'readable',
'',
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment