git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@284
c11ca15a-4712-0410-83d8-
924469b57eb5
# Return: array of channels
sub ChanConfList {
my $param = $_[0];
# Return: array of channels
sub ChanConfList {
my $param = $_[0];
- my %chan = &getChanConfList($param);
-
return unless (defined $param);
return unless (defined $param);
+ my %chan = &getChanConfList($param);
### TODO: -option is included aswell though.
### TODO: -option is included aswell though.
- if ($chan{_default}) {
- return keys %channels;
- } else {
- return keys %chan;
- }