| … | |
… | |
| 98 | delete $self->{connect_w}; |
98 | delete $self->{connect_w}; |
| 99 | delete $self->{connect_to}; |
99 | delete $self->{connect_to}; |
| 100 | |
100 | |
| 101 | $self->{transport} = $transport; |
101 | $self->{transport} = $transport; |
| 102 | |
102 | |
| 103 | my $transport_send = $transport->can ("send"); |
103 | my $transport_send = $transport->{send}; |
| 104 | |
104 | |
| 105 | AnyEvent::MP::Kernel::_inject_nodeevent ($self, 1); |
105 | AnyEvent::MP::Kernel::_inject_nodeevent ($self, 1); |
| 106 | |
106 | |
| 107 | $self->{send} = sub { |
107 | $self->{send} = $transport_send; |
| 108 | $transport_send->($transport, $_[0]); |
|
|
| 109 | }; |
|
|
| 110 | |
108 | |
| 111 | $transport->send ($_) |
109 | $transport_send->($_) |
| 112 | for @{ delete $self->{queue} || [] }; |
110 | for @{ delete $self->{queue} || [] }; |
| 113 | } |
111 | } |
| 114 | |
112 | |
| 115 | sub connect { |
113 | sub connect { |
| 116 | my ($self, @addresses) = @_; |
114 | my ($self, @addresses) = @_; |
