… | … | ||
---|---|---|---|
54 | } | 54 | } |
55 | 55 | ||
56 | sub monitor { | 56 | sub monitor { |
57 | my ($self, $portid, $cb) = @_; | 57 | my ($self, $portid, $cb) = @_; |
58 | 58 | ||
59 | return $cb->("node failed conenction") | 59 | return $cb->(transport_error => "node unreachable") |
60 | if $self->{failed}; | 60 | if $self->{failed}; |
61 | 61 | ||
62 | my $list = $self->{lmon}{$portid} ||= []; | 62 | my $list = $self->{lmon}{$portid} ||= []; |
63 | 63 | ||
64 | $self->send (["", mon1 => $portid]) | 64 | $self->send (["", mon1 => $portid]) |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |