Fixed significant state mismatched data bugs.

NEWS

@@ -18,7 +18,7 @@ In this alpha11 release, we have added:
 
 Bug fixes:
 
-None
+* Fixed significant state mismatched data bugs.
 
 Incompatibilities:
 

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Fixed significant state mismatched data bugs.
     * Added API::IRC::ison for checking if a user is on a channel.
     * Werewolf: Fixed a bug in harlot staying home.
     * Werewolf: Various bug fixes.

lib/Core/IRC.pm

@@ -97,7 +97,7 @@ hook_add("on_quit", "quit_update_chanusers", sub {
 
     # Delete the user from all channels.
     foreach my $ccu (keys %{ $State::IRC::chanusers{$src{svr}}}) {
-        if (defined $State::IRC::chanusers{$src{svr}}{$ccu}{$src{nick}}) { delete $State::IRC::chanusers{$src{svr}}{$ccu}{$src{nick}} }
+        if (defined $State::IRC::chanusers{$src{svr}}{$ccu}{lc $src{nick}}) { delete $State::IRC::chanusers{$src{svr}}{$ccu}{lc $src{nick}} }
     }
 
     return 1;

lib/Proto/IRC.pm

@@ -410,7 +410,7 @@ sub kick {
     }
     else {
         # We weren't. Update chanusers and trigger on_kick.
-        if (defined $State::IRC::chanusers{$svr}{$ex[2]}{$ex[3]}) { delete $State::IRC::chanusers{$svr}{$ex[2]}{$ex[3]} }
+        if (defined $State::IRC::chanusers{$svr}{$ex[2]}{lc $ex[3]}) { delete $State::IRC::chanusers{$svr}{$ex[2]}{lc $ex[3]} }
         API::Std::event_run("on_kick", (\%src, $ex[2], $ex[3], $msg));
     }
 
@@ -578,7 +578,7 @@ sub part {
     }
     else {
         # Delete them from chanusers.
-        delete $State::IRC::chanusers{$svr}{$ex[2]}{$src{nick}} if defined $State::IRC::chanusers{$svr}{$ex[2]}{$src{nick}};
+        delete $State::IRC::chanusers{$svr}{$ex[2]}{lc $src{nick}} if defined $State::IRC::chanusers{$svr}{$ex[2]}{lc $src{nick}};
     
         # Set $msg to the part message.
         my $msg = 0;