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

foo

Browse source
This commit is contained in:
Ryan Voots 2011-01-31 21:59:15 -05:00
parent 4caabd053a
commit 0b61429a8a
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/compose.pm
View file

@ -27,7 +27,7 @@ sub command {
sub compose {
my($said, $pm) = @_;
my $str = $said->{body};
$said->{recursion} = 10 unless defined $said->{recursion};
$said->{recursion} = 50 unless defined $said->{recursion};
$str =~ /\A\s*((\S).*(\S))\s*\z/s or
return "Error: empty expression for compose";