Send error messages correctly

diff --git a/lib/App/Statsbot.pm b/lib/App/Statsbot.pm
index d91020322efc2505ccf92ef89da5b6251fe8e842..49fb66fe0dda4aab3bbd5068265caf1c951a7c83 100644 (file)
--- a/lib/App/Statsbot.pm
+++ b/lib/App/Statsbot.pm
@@ -112,9 +112,9 @@ sub on_public{
        my $botnick = $irc->nick_name;
 
        if ($message =~ /(?:$botnick[:,])?\s*!?help\s*(.*)/) {
-               $irc->yield("Try !presence username interval [truncate]");
-               $irc->yield("For example, !presence mgv '2 days'");
-               $irc->yield("or !presence mgv '1 year' 4");
+               $irc->yield(privmsg => $targets, "Try !presence username interval [truncate]");
+               $irc->yield(privmsg => $targets, "For example, !presence mgv '2 days'");
+               $irc->yield(privmsg => $targets, "or !presence mgv '1 year' 4");
                return;
        }
 
@@ -131,7 +131,7 @@ sub on_public{
        eval {
                $time = parse_duration $time;
        } or do {
-               $irc->yield("cannot parse timespec: $time");
+               $irc->yield(privmsg => $targets, "cannot parse timespec: $time");
                return;
        };