diff options
Diffstat (limited to 'lib/Bot/Games/Game/Spook.pm')
-rw-r--r-- | lib/Bot/Games/Game/Spook.pm | 4 |
1 files changed, 1 insertions, 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; |