diff options
author | doy <doy@tozt.net> | 2009-01-26 00:31:18 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-01-26 00:31:18 -0500 |
commit | d78a95c3ab2ad229b51224a541695ee122e83857 (patch) | |
tree | ecccd2ce8404798205f229aa109a672840ba54f6 /lib/Bot/Games.pm | |
parent | 55dd2122007e0a8d7046d8ab5071d62f67bcfa6a (diff) | |
download | bot-games-d78a95c3ab2ad229b51224a541695ee122e83857.tar.gz bot-games-d78a95c3ab2ad229b51224a541695ee122e83857.zip |
force game name to lowercase
Diffstat (limited to 'lib/Bot/Games.pm')
-rw-r--r-- | lib/Bot/Games.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm index e1fe2a4..44989c5 100644 --- a/lib/Bot/Games.pm +++ b/lib/Bot/Games.pm @@ -70,7 +70,7 @@ sub said { return if $args->{channel} eq 'msg'; return unless $args->{body} =~ /^$prefix(\w+)(?:\s+(.*))?/; - my ($game_name, $action) = ($1, $2); + my ($game_name, $action) = (lc($1), $2); return $self->game_list if $game_name eq 'games'; if ($game_name eq 'help') { $game_name = $action; |