From eb63d1a9fd7afc69b77eb7fc2a3e4c454d65a23b Mon Sep 17 00:00:00 2001
From: David Phillips <david@yeah.nah.nz>
Date: Fri, 16 Nov 2018 15:16:05 +1300
Subject: Men: Allow replacement on edge(s) of words

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

(limited to 'Plugin/Men.pm')

diff --git a/Plugin/Men.pm b/Plugin/Men.pm
index e7d4592..38af3ea 100644
--- a/Plugin/Men.pm
+++ b/Plugin/Men.pm
@@ -23,7 +23,7 @@ sub on_message {
 		$where = $where->[0];
 	}
 
-	if ($what =~ /(\w+men\w+)/) {
+	if ($what =~ /(\w*men\w*)/) {
 		my ($w, $c, $target);
 		$w = $c = $target = $1;
 		$w =~ s/men/women/;
-- 
cgit v1.1