From 10a8409ac7ef9388375e3b09da25a9c7e1931fef Mon Sep 17 00:00:00 2001
From: David Phillips <david@yeah.nah.nz>
Date: Fri, 16 Nov 2018 15:05:50 +1300
Subject: Men: Don't capture entire line
---
Plugin/Men.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Plugin/Men.pm b/Plugin/Men.pm
index 1e8d71a..e7d4592 100644
--- a/Plugin/Men.pm
+++ b/Plugin/Men.pm
@@ -23,7 +23,7 @@ sub on_message {
$where = $where->[0];
}
- if ($what =~ /(\b.+men.+\b)/) {
+ if ($what =~ /(\w+men\w+)/) {
my ($w, $c, $target);
$w = $c = $target = $1;
$w =~ s/men/women/;
--
cgit v1.1