Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:55:42 -04:00
Code Issues Releases Wiki Activity

changing it to ignore \s and - as command callers

Browse source
This commit is contained in:
Ryan Voots 2011-02-03 09:59:43 -05:00
parent fc3d267c92
commit a570ad9486
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Bot/BB3/PluginManager.pm
View file

@ -360,7 +360,7 @@ sub _parse_for_commands {
my $command_re = join '|', map "\Q$_", keys %$commands; my $command_re = join '|', map "\Q$_", keys %$commands;
$command_re = qr/$command_re/; #TODO move to _pre_build_chains and switch to Trie $command_re = qr/$command_re/; #TODO move to _pre_build_chains and switch to Trie
if( $said->{body} =~ s/^\s*($command_re)[ \t:,;.-]\s*(.+)/$2/ if( $said->{body} =~ s/^\s*($command_re)[:,;]\s*(.+)/$2/
or $said->{body} =~ s/^\s*($command_re)\s*$// ) { or $said->{body} =~ s/^\s*($command_re)\s*$// ) {
my $found_command = $1; my $found_command = $1;