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

fixed the common code, make it only work if we end in a whitespace

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 13:41:21 -04:00
parent f74c951fbe
commit 063180ec23
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/8ball.pm
View file

@ -36,8 +36,12 @@ sub {
s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up s/^\s*//, s/\s*(\?\s*)?$// for @a; #trim them up
$common = $findcommon->(@a); $common = $findcommon->(@a);
if ($common =~ /\s$/) #only remove if we end on whitespace
{
s/^$common// for @a; # remove the common stuff for grammar s/^$common// for @a; # remove the common stuff for grammar
} }
}
else else
{ {
@a=("Outlook good", @a=("Outlook good",