dave
/
docker-buttbot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed other uses of buttify.

This commit is contained in:
norggon 2009-10-27 17:11:12 +00:00
parent 2043f40329
commit a6e430f7da
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
irssibutt.pl
View File

@ -24,7 +24,7 @@ sub on_privmsg {
return 0 if ($text =~ /^!|^http:\/\/\S+$|butt|^\W+$/i);
my @words = split(/\s+/, $text);
my @replaced_words = Butts::buttify(@words);
my @replaced_words = Butts::buttify("butt", @words);
my $replaced_text = join(" ", @replaced_words);
unless ($text eq $replaced_text) {

2
t/Butts.t
View File

@ -8,7 +8,7 @@ BEGIN { use_ok('Butts', qw(buttify)); }
can_ok('Butts', qw(buttify));
for (1 .. 10) {
my @sample = buttify(qw(The rain in Spain falls mainly on the plain.));
my @sample = buttify("butt", qw(The rain in Spain falls mainly on the plain.));
{
local $" = ' ';
print "@sample\n";