… | … | ||
---|---|---|---|
15 | undef $CON; | 15 | undef $CON; |
16 | } | 16 | } |
17 | 17 | ||
18 | sub do_notice { | 18 | sub do_notice { |
19 | my ($msg) = @_; | 19 | my ($msg) = @_; |
20 | $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN); | 20 | $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN) |
21 | if $CON; | ||
21 | } | 22 | } |
22 | 23 | ||
23 | sub check_connection { | 24 | sub check_connection { |
24 | return if $CON; | 25 | return if $CON; |
25 | 26 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |