| … | … | ||
|---|---|---|---|
| 91 | }, | 91 | }, |
| 92 | # registered => sub { | 92 | # registered => sub { |
| 93 | # 1; | 93 | # 1; |
| 94 | # }, | 94 | # }, |
| 95 | disconnect => sub { | 95 | disconnect => sub { |
| 96 | my ($con, $reason) = @_; | ||
| 97 | warn "CFBOT: disconnect: $reason\n"; | ||
| 96 | undef $CON; | 98 | undef $CON; |
| 97 | 0; | 99 | 0; |
| 98 | } | 100 | } |
| 99 | ); | 101 | ); |
| 100 | } | 102 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |