From a23fd63c8c66dff93bc77ec3cc66aba984480b5a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 2 Nov 2009 18:50:55 -0600
Subject: fix broken valid_word_from_state for spook

---
 lib/Bot/Games/Game/Spook.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/Bot/Games/Game/Spook.pm b/lib/Bot/Games/Game/Spook.pm
index 7cecca0..4b47947 100644
--- a/lib/Bot/Games/Game/Spook.pm
+++ b/lib/Bot/Games/Game/Spook.pm
@@ -17,9 +17,7 @@ command valid_move => sub {
 command valid_word_from_state => sub {
     my $self = shift;
     my ($word) = @_;
-    $word = uc join '', sort split(//, $word);
-    my $state = join '', sort split(//, $self->state);
-    return $word eq $state;
+    return is_subpermutation($self->state, uc($word));
 }, formatter => 'Bool';
 
 __PACKAGE__->meta->make_immutable;
-- 
cgit v1.2.3-54-g00ecf