summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-01-25 16:34:34 -0500
committerdoy <doy@tozt.net>2009-01-25 16:34:34 -0500
commitefaa0dfadd3373380ba122173c3bbb7f49c2f44e (patch)
tree1067a6511458c1ef97f561d760d5bf3d966ba162
parent9fa5864411552ce62cfa0fb1fc09e2cdb1c16413 (diff)
downloadbot-games-efaa0dfadd3373380ba122173c3bbb7f49c2f44e.tar.gz
bot-games-efaa0dfadd3373380ba122173c3bbb7f49c2f44e.zip
format the message body in the extended say syntax too
-rw-r--r--lib/Bot/Games.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index f8a0284..654f288 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -43,7 +43,10 @@ sub said {
my $say = sub {
shift;
return $self->say(%$args, body => $self->_format(@_)) if @_ == 1;
- return $self->say(%$args, @_);
+ my %overrides = @_;
+ $overrides{body} = $self->_format($overrides{body})
+ if exists $overrides{body};
+ return $self->say(%$args, %overrides);
};
return if $args->{channel} eq 'msg';