git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@375
c11ca15a-4712-0410-83d8-
924469b57eb5
- foreach (shift @ircServers) {
+ while (my $host = shift @ircServers) {
# JUST IN CASE. irq was complaining about this.
if ($lastrun == time()) {
&DEBUG("hrm... lastrun == time()");
# JUST IN CASE. irq was complaining about this.
if ($lastrun == time()) {
&DEBUG("hrm... lastrun == time()");
&DEBUG("ircloop: ircServers[x] = NULL.");
$lastrun = time();
next;
}
&DEBUG("ircloop: ircServers[x] = NULL.");
$lastrun = time();
next;
}
- next unless (exists $ircPort{$_});
+ next unless (exists $ircPort{$host});
- my $retval = &irc($_, $ircPort{$_});
+ my $retval = &irc($host, $ircPort{$host});
&DEBUG("ircloop: after irc()");
next unless (defined $retval and $retval == 0);
&DEBUG("ircloop: after irc()");
next unless (defined $retval and $retval == 0);