Make sure bots reply to whoever addressed them (#7)

Raku · Jul 14, 2016 · 18dd136 · 18dd136
1 parent f1ad881
commit 18dd136
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/Perl6IRCBotable.pm b/Perl6IRCBotable.pm
@@ -100,6 +100,7 @@ sub process_url {
     channel => $message->{channel},
     body    => "Successfully fetched the code from the provided URL.",
     who     => $message->{who},
+    address => 1,
       );
 
   return (1, $body);
@@ -149,6 +150,7 @@ sub said {
       channel => $message->{channel},
       body    => $response,
       who     => $message->{who},
+      address => 1,
         );
   }
 }

diff --git a/bisectable.pl b/bisectable.pl
@@ -103,6 +103,7 @@ sub process_message {
         channel => $message->{channel},
         body    => "Exit code is $exit_bad on both starting points, bisecting by using the output",
         who     => $message->{who},
+        address => 1,
           );
       (my $fh, $output_file) = tempfile(UNLINK => 1);
       print $fh $out_good;
@@ -113,6 +114,7 @@ sub process_message {
         channel => $message->{channel},
         body    => "Exit code on a 'good' revision is $exit_good (which is bad), bisecting with inverted logic",
         who     => $message->{who},
+        address => 1,
           );
     }