diff --git a/plugins/8ball.pm b/plugins/8ball.pm index 6e385ee..3ba2d9b 100644 --- a/plugins/8ball.pm +++ b/plugins/8ball.pm @@ -22,13 +22,12 @@ use List::Util qw(min); sub { my( $said ) = @_; - + $said->{body} =~ s/^[^,]*://; + my $ors =()= $said->{body}=~m/\bor\b/g; my $common = ""; my @a; - - $said->{body} =~ s/^[^,]*://; if ($ors >= 1) {