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

testing modified 8ball

Browse source
This commit is contained in:
Ryan Voots 2011-03-18 02:57:33 -04:00
parent 09344be0b0
commit 817dcdd764
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

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