- nice patch from Phil Edwards <pme@devphil.com>. Thanks!

[infobot.git] / src / core.pl

diff --git a/src/core.pl b/src/core.pl
index c82c47e666f4e03d896247ab5038c16531d3cb03..9bcaccd07031b863cc5f7cb37b6d4cd722ac34a2 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -301,7 +301,7 @@ sub getChanConf {
     $c         ||= $chan;
     $c         ||= "_default";
     $c         = "_default" if ($c eq "*");    # fix!
-    my @c      = grep /^$c$/i, keys %chanconf;
+    my @c      = grep /^\Q$c\E$/i, keys %chanconf;
 
     if (@c) {
        if (0 and $c[0] ne $c) {