From f8d8cac7d4bd3fb323d39a5851e072964a8448b5 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 4 May 2019 19:04:11 -0700
Subject: [PATCH] Interpreter: case-insensitive "Why would I want to do that to
 myself?" exceptions

---
 PBot/Interpreter.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index f81b058f..b78a28ea 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -283,7 +283,7 @@ sub interpret {
 
   $stuff->{nickoverride} = $stuff->{nick} if defined $stuff->{nickoverride} and lc $stuff->{nickoverride} eq 'me';
 
-  if ($keyword !~ /^(?:factrem|forget|set|factdel|factadd|add|factfind|find|factshow|show|forget|factdel|factset|factchange|change|msg|tell|cc|eval|u|udict|ud|actiontrigger|urban|perl|ban|mute|spinach|choose|c|lie|l|adminadd|unmute|unban)$/) {
+  if ($keyword !~ /^(?:factrem|forget|set|factdel|factadd|add|factfind|find|factshow|show|forget|factdel|factset|factchange|change|msg|tell|cc|eval|u|udict|ud|actiontrigger|urban|perl|ban|mute|spinach|choose|c|lie|l|adminadd|unmute|unban)$/i) {
     $keyword =~ s/(\w+)([?!.]+)$/$1/;
     $arguments =~ s/(?<![\w\/\-\\])i am\b/$stuff->{nick} is/gi if defined $arguments && $stuff->{interpret_depth} <= 2;
     $arguments =~ s/(?<![\w\/\-\\])me\b/$stuff->{nick}/gi if defined $arguments && $stuff->{interpret_depth} <= 2;