… | … | ||
---|---|---|---|
9 | my $BOTCHAN = '#cf'; | 9 | my $BOTCHAN = '#cf'; |
10 | 10 | ||
11 | my $CON; # the connection | 11 | my $CON; # the connection |
12 | 12 | ||
13 | sub on_unload { | 13 | sub on_unload { |
14 | $CON->disconnect; | 14 | $CON->disconnect if $CON; |
15 | undef $CON; | 15 | undef $CON; |
16 | } | 16 | } |
17 | 17 | ||
18 | sub do_notice { | 18 | sub do_notice { |
19 | my ($msg) = @_; | 19 | my ($msg) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |