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

more cleanup, it should work...

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 00:42:27 -04:00
parent 9eeb9ec950
commit f40e38f095
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/8ball.pm
View file

@ -37,7 +37,7 @@ sub {
} }
else else
{ {
@a = split(/(?:\bor\b|\s*,\s*)/, $said->{body}); @a = split(/(?:\bor\b|\s*,\s*)+/, $said->{body});
} }
s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up