[SimBot-commits] CVS: simbot simbot.pl,1.115,1.116

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17815

Modified Files:
	simbot.pl 
Log Message:
How old is this logic bug?
Should simbot get klined, we'll now properly remove the server from the pool
instead of getting stuck in a loop.


Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -d -p -r1.115 -r1.116
--- simbot.pl	10 May 2005 02:25:57 -0000	1.115
+++ simbot.pl	6 Jun 2005 21:16:40 -0000	1.116
@@ -1938,7 +1938,10 @@ sub irc_disconnected {
 sub server_error {
     &debug(1, "$_[ARG0]\n");
 	if ($_[ARG0] =~ /k-lined/i) {
-		for (my $i = 0; !defined @{$conf{'network'}{'servers'}}[$i]; $i++) {
+	   if(!defined $chosen_server) {
+	       die q($chosen_server is undefined);
+	   }
+		for (my $i = 0; defined @{$conf{'network'}{'servers'}}[$i]; $i++) {
 			if ($chosen_server eq @{$conf{'network'}{'servers'}}[$i]) {
 				splice(@{$conf{'network'}{'servers'}}, $i, 1)
 			}