| … | … | ||
|---|---|---|---|
| 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 |