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

fixing bug with addressed behavior

Browse source
This commit is contained in:
Ryan Voots 2011-02-08 20:31:45 -05:00
parent f6091166bd
commit 17d48f5419
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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