From 94db7280ff9582e864be6be53535c9786bcf3002 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 10 Apr 2011 14:51:28 -0600
Subject: [PATCH] Werewolf: Fixed a bug that occasionally caused a person to
 get wolf twice in the same game.

---
 doc/CHANGELOG       | 2 ++
 modules/Werewolf.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index f69514b..fcd1578 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Werewolf: Fixed a bug that occasionally caused a person to get wolf
+      twice in the same game.
     * Werewolf: Fixed a typo that broke the gun on occasion.
     * Fixed a minor retract bug in Werewolf.
     * Fixed two major bugs in Werewolf that messed up game play.
diff --git a/modules/Werewolf.pm b/modules/Werewolf.pm
index f4ee982..8dcaaa7 100644
--- a/modules/Werewolf.pm
+++ b/modules/Werewolf.pm
@@ -217,7 +217,7 @@ sub cmd_wolf {
                 # Set wolves.
                 while ($cwolves > 0) {
                     my $rpi = $plyrs[int rand scalar @plyrs];
-                    if ($PLAYERS{$rpi} !~ m/^(s|g|h|d|t)$/xsm) {
+                    if ($PLAYERS{$rpi} !~ m/^(w|s|g|h|d|t)$/xsm) {
                         $PLAYERS{$rpi} = 'w';
                         $cwolves--;
                         $STATIC[0] .= ", \2$NICKS{$rpi}\2";