From 552f720370023b7ceb83f5991f6c53f8e1274cb0 Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Sun, 23 Jun 2019 17:26:31 +1200
Subject: Plugin/Dad: Fix accidental escape in regex

---
 Plugin/Dad.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Plugin/Dad.pm b/Plugin/Dad.pm
index 096017f..27d10aa 100644
--- a/Plugin/Dad.pm
+++ b/Plugin/Dad.pm
@@ -35,7 +35,7 @@ sub on_message {
 	$what = Encode::decode('utf8', $what);
 
 	print "$what\n";
-	if ($what =~ /^i('\''|\s+a)m\s+(\w+)\s*$/) {
+	if ($what =~ /^i('|\s+a)m\s+(\w+)\s*$/) {
 		return "Hi ".$2.", I'm dad";
 	}
 	return;
-- 
cgit v1.1