From cc613822bf78d1a73e02bc3ddf99bea68babe3ad Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Fri, 17 Mar 2017 16:16:59 +1300
Subject: Return case-insensitive operation, remove debug print

---
 saxrobot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'saxrobot')

diff --git a/saxrobot b/saxrobot
index 984fd7b..0dcd5f1 100755
--- a/saxrobot
+++ b/saxrobot
@@ -84,15 +84,14 @@ sub irc_public {
 	my $me = $irc->nick_name;
 
 	my $collected_response = "";
-	print $config{triggers};
 	my @expressions = (keys %{$config{triggers}});
 	my $expression = join '|', @expressions;
-	while ($what =~ /($expression)/g) {
+	while ($what =~ /($expression)/gi) {
 		my $matched = $1;
 		my $key;
 		# figure out which key matched
 		foreach (@expressions) {
-			if ($matched =~ /$_/) {
+			if ($matched =~ /$_/i) {
 				$key = $_;
 				last;
 			}
-- 
cgit v1.1