- # would this slow things down?
- if ($_ = &getChanConf("ircTextCounters")) {
- my $time = time();
-
- foreach (split /[\s]+/) {
- my $x = $_;
+ # cache it.
+ my $time = time();
+ if (!$cache{ircTextCounters}) {
+ &DEBUG("caching ircTextCounters for first time.");
+ my @str = split(/\s+/, &getChanConf("ircTextCounters"));
+ for (@str) { $_ = quotemeta($_); }
+ $cache{ircTextCounters} = join('|', @str);
+ }