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

moved replacement

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 13:37:29 -04:00
parent e78bdc83c7
commit f74c951fbe
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plugins/8ball.pm
View file

@ -22,14 +22,13 @@ use List::Util qw(min);
sub { sub {
my( $said ) = @_; my( $said ) = @_;
$said->{body} =~ s/^[^,]*://;
my $ors =()= $said->{body}=~m/\bor\b/g; my $ors =()= $said->{body}=~m/\bor\b/g;
my $common = ""; my $common = "";
my @a; my @a;
$said->{body} =~ s/^[^,]*://;
if ($ors >= 1) if ($ors >= 1)
{ {
@a = split(/(?:\bor\b|\s*,\s*)+/, $said->{body}); @a = split(/(?:\bor\b|\s*,\s*)+/, $said->{body});