&ChanConfList() typos

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@284 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/core.pl b/src/core.pl
index 860d6fb10581be3ca67cd633b951991df8a8381b..14b8184ac66f14baaace6bf7d1c2d29fae36cade 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -128,16 +128,11 @@ sub IsParam {
 # Return: array of channels
 sub ChanConfList {
     my $param  = $_[0];
-    my %chan   = &getChanConfList($param);
-
     return unless (defined $param);
+    my %chan   = &getChanConfList($param);
 
     ### TODO: -option is included aswell though.
-    if ($chan{_default}) {
-       return keys %channels;
-    } else {
-       return keys %chan;
-    }
+    return keys %chan;
 }
 
 #####