Werewolf: Fixed a nasty lynch nick exploit.

doc/CHANGELOG

@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Werewolf: Fixed a nasty lynch nick exploit.
     * Fixed an issue in HELP.
     * Added a Ping module.
     * Moved Werewolf back to stable.

modules/Werewolf.pm

@@ -1498,10 +1498,13 @@ sub on_nick {
                 $LYNCH{$new} = $LYNCH{lc $src->{nick}};
                 delete $LYNCH{lc $src->{nick}};
             }
-            while (my ($accu, $ser) = each %LYNCH) {
-                if ($ser eq lc $src->{nick}) {
-                    $LYNCH{$accu}{$new} = 1;
-                    delete $LYNCH{$accu}{$ser};
+            foreach my $accu ($sers) {
+                %sers = %{$sers};
+                foreach my $ser (%sers) {
+                    if ($ser eq lc $src->{nick}) {
+                        $LYNCH{$accu}{$new} = 1;
+                        delete $LYNCH{$accu}{$ser};
+                    }
                 }
             }
             # That should be everything.