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

removing some useless warnings

Browse source
This commit is contained in:
Ryan Voots 2010-10-07 16:26:23 -04:00
parent 2c890fa4b4
commit 1118925e35
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plugins/8ball.pm
View file

@ -20,7 +20,7 @@ use List::Util qw(min);
return $common; return $common;
}; };
sub { my $a=sub {
my( $said ) = @_; my( $said ) = @_;
$said->{body} =~ s/^[^,]*://; $said->{body} =~ s/^[^,]*://;
@ -67,7 +67,9 @@ sub {
} }
print $a[rand@a]."." print $a[rand@a]."."
} };
return $a
__DATA__ __DATA__
8ball, magic 8ball if you don't understand then you need to stop having a life. 8ball, magic 8ball if you don't understand then you need to stop having a life.