diff options
author | David Phillips <david@yeah.nah.nz> | 2018-11-16 15:05:50 +1300 |
---|---|---|
committer | David Phillips <david@yeah.nah.nz> | 2018-11-16 15:05:50 +1300 |
commit | 10a8409ac7ef9388375e3b09da25a9c7e1931fef (patch) | |
tree | 63229922a14bd0261ab5e571ab958aeae50bdda0 | |
parent | 5906aa48ea29ad02c05ec63bd2cf6789b187b901 (diff) | |
download | idalius-10a8409ac7ef9388375e3b09da25a9c7e1931fef.tar.xz |
Men: Don't capture entire line
-rw-r--r-- | Plugin/Men.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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/; |