Make Evalable ignore ‘???’ and ‘sleep &’

These just happen to be common and somewhat valid.
Raku · Aug 22, 2019 · a32bb60 · a32bb60
1 parent c1e3457
commit a32bb60
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/xbin/Evalable.p6 b/xbin/Evalable.p6
@@ -47,6 +47,8 @@ multi method irc-privmsg-channel($msg) {
     my $nonword-ratio = $msg.args[1].comb(/<-alpha -space>/) ÷ $msg.args[1].chars;
     nextsame if $nonword-ratio < 0.1; # skip if doesn't look like code at all
     nextsame if $msg.args[1] ~~ /^ \s*<[\w-]>+‘:’ /; # skip messages to other bots
+    nextsame if $msg.args[1] eq ‘???’;                 # unfortunate trigger (???)
+    nextsame if $msg.args[1] ~~ /^ \w+ \s+ ‘&’ \s* $/; # unfortunate trigger (sleep &)
 
     self.process: $msg, $msg.args[1], :good-only
 }

diff --git a/xt/evalable.t b/xt/evalable.t
@@ -228,6 +228,12 @@ $t.test(‘segfaults are not ignored’,
         ‘use NativeCall; sub strdup(int64) is native(Str) {*}; strdup(0)’,
         /^ <me($t)>‘, rakudo-moar ’<sha>‘: OUTPUT: «(signal SIGSEGV) »’ $/);
 
+$t.test(‘ignore common messages (sleep &)’,
+        ‘sleep &’);
+
+$t.test(‘ignore common messages (???)’,
+        ‘???’);
+
 # Timeouts
 
 $t.test(‘timeout’,