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

adding space back, apeiron is wrong

Browse source
This commit is contained in:
Ryan Voots 2010-03-10 23:04:36 -05:00
parent bbe25c5b4e
commit a4b83c5438
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/Roles/IRC.pm
View file

@ -299,7 +299,7 @@ sub _said {
my $aliases = $self->get_aliases( $pci ); my $aliases = $self->get_aliases( $pci );
my $name_re = "(?:" . join( "|", map "(?:$_)", $said->{my_name}, @$aliases ) . ")"; my $name_re = "(?:" . join( "|", map "(?:$_)", $said->{my_name}, @$aliases ) . ")";
if( $body =~ s/^\s*($name_re)\b\s*[;:,]\s*// ) { if( $body =~ s/^\s*($name_re)\b\s*[;:, ]\s*// ) {
$said->{body} = $body; $said->{body} = $body;
$said->{addressed} = 1; $said->{addressed} = 1;
$said->{addressed_as} = $1; $said->{addressed_as} = $1;