while (<FILE>) {
chop;
- if ($_ eq "" || /^#/) {
+ if ($_ eq '' || /^#/) {
undef $replyName;
next;
}
# File: Irc Servers list.
sub loadIRCServers {
- my ($file) = $bot_config_dir."/blootbot.servers";
+ my ($file) = $bot_config_dir."/infobot.servers";
@ircServers = ();
%ircPort = ();