… | … | ||
---|---|---|---|
77 | 77 | ||
78 | # establish connection | 78 | # establish connection |
79 | my $rport = spawn $node, "AnyEvent::MP::LogCatcher::connect", 0, $lport, $LOGLEVEL; | 79 | my $rport = spawn $node, "AnyEvent::MP::LogCatcher::connect", 0, $lport, $LOGLEVEL; |
80 | 80 | ||
81 | mon $rport, $lport; | 81 | mon $rport, $lport; |
82 | mon $lport, sub { | ||
83 | warn "$lport $rport <@_>\n";#d# | ||
84 | }; | ||
85 | } | 82 | } |
86 | 83 | ||
87 | sub catch { | 84 | sub catch { |
88 | $LOGLEVEL = $_[0]; | 85 | $LOGLEVEL = $_[0]; |
89 | kil $_, "restart" for values %lport; | 86 | kil $_, "restart" for values %lport; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |