[SimBot-commits] CVS: simbot simbot.pl,1.116,1.117
Status: Abandoned
Brought to you by:
kstange
|
From: Pete P. <fou...@us...> - 2005-06-06 21:34:43
|
Update of /cvsroot/simbot/simbot In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28101 Modified Files: simbot.pl Log Message: We now work with the proper array when removing servers that have klined us. Index: simbot.pl =================================================================== RCS file: /cvsroot/simbot/simbot/simbot.pl,v retrieving revision 1.116 retrieving revision 1.117 diff -u -d -p -r1.116 -r1.117 --- simbot.pl 6 Jun 2005 21:16:40 -0000 1.116 +++ simbot.pl 6 Jun 2005 21:34:35 -0000 1.117 @@ -24,6 +24,8 @@ # Hi, my name(space) is: package SimBot; +use Data::Dumper; + # Sometimes we end up in Unicode. Since IRC and Unicode are not good # friends, we'll take a ride back to ISO-8859-1 before we send the # server any questionable strings. This requires Perl 5.8.0 or a perl @@ -1941,9 +1943,9 @@ sub server_error { 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) + for (my $i = 0; defined @{$conf{'network'}{'server'}}[$i]; $i++) { + if ($chosen_server eq @{$conf{'network'}{'server'}}[$i]) { + splice(@{$conf{'network'}{'server'}}, $i, 1) } } } |