… | … | ||
---|---|---|---|
8 | my $BOTNAME = 'cfbot'; | 8 | my $BOTNAME = 'cfbot'; |
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 unload { |
14 | $CON->disconnect if $CON; | 14 | $CON->disconnect if $CON; |
15 | undef $CON; | 15 | undef $CON; |
16 | } | 16 | } |
17 | 17 | ||
18 | sub do_notice { | 18 | sub do_notice { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |