Only respond if there's a ':' or ',' immediately after the bot name

Raku · Jul 30, 2016 · 4a6357a · 4a6357a
1 parent 83b6e73
commit 4a6357a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Perl6IRCBotable.pm b/Perl6IRCBotable.pm
@@ -173,6 +173,7 @@ sub said {
   my $body = $message->{body};
 
   return unless $message->{address};
+  return unless $message->{raw_body} =~ /^\w+[,:]/;
   return SOURCE if $body eq 'source';
   return 'Sorry, it is too private here' if $message->{address} eq 'msg';