| … | … | ||
|---|---|---|---|
| 22 | } | 22 | } |
| 23 | } | 23 | } |
| 24 | } | 24 | } |
| 25 | 25 | ||
| 26 | sub on_login { | 26 | sub on_login { |
| 27 | my ($pl, $host) = @_; | 27 | my ($pl) = @_; |
| 28 | 28 | ||
| 29 | clean_timeouts $pl->ob; | 29 | clean_timeouts $pl->ob; |
| 30 | } | 30 | } |
| 31 | 31 | ||
| 32 | cf::register_command listen => 0, sub { | 32 | cf::register_command listen => 0, sub { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |