| … | … | ||
|---|---|---|---|
| 563 | $cb = sub { kil $port, @_ if @_ }; | 563 | $cb = sub { kil $port, @_ if @_ }; |
| 564 | } | 564 | } |
| 565 | } | 565 | } |
| 566 | 566 | ||
| 567 | $node->monitor ($port, $cb); | 567 | $node->monitor ($port, $cb); |
| 568 | |||
| 569 | $cb += 0; | ||
| 568 | 570 | ||
| 569 | defined wantarray | 571 | defined wantarray |
| 570 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } | 572 | and AnyEvent::Util::guard { $node->unmonitor ($port, $cb) } |
| 571 | } | 573 | } |
| 572 | 574 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |