diff options
author | doy <doy@tozt.net> | 2009-01-15 01:09:43 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-01-15 01:09:43 -0500 |
commit | 91161b518ac8858899717a785cb3443b695f8a5f (patch) | |
tree | 24a1d004e11a41ba879800349b4c0e413d007ab1 /lib/Bot/Games/Game/Superghost.pm | |
parent | 16612c204ffde260a58ef51085fc1343505aa246 (diff) | |
download | bot-games-91161b518ac8858899717a785cb3443b695f8a5f.tar.gz bot-games-91161b518ac8858899717a785cb3443b695f8a5f.zip |
syntax fixes
Diffstat (limited to 'lib/Bot/Games/Game/Superghost.pm')
-rw-r--r-- | lib/Bot/Games/Game/Superghost.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Bot/Games/Game/Superghost.pm b/lib/Bot/Games/Game/Superghost.pm index f6a4d7b..df297ee 100644 --- a/lib/Bot/Games/Game/Superghost.pm +++ b/lib/Bot/Games/Game/Superghost.pm @@ -7,7 +7,7 @@ has '+help' => ( default => "superghost help", ); -command valid_move => { +command valid_move => sub { my $self = shift; my ($move) = @_; return uc(substr($move, 0, -1)) eq $self->state |