From f74c951fbe5266c9e26f399ba0de8a4e9fd7f036 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Tue, 5 Oct 2010 13:37:29 -0400 Subject: [PATCH] moved replacement --- plugins/8ball.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) {