diff options
| author | David Phillips <david@yeah.nah.nz> | 2018-11-16 15:16:05 +1300 |
|---|---|---|
| committer | David Phillips <david@yeah.nah.nz> | 2018-11-16 15:18:43 +1300 |
| commit | eb63d1a9fd7afc69b77eb7fc2a3e4c454d65a23b (patch) | |
| tree | eeffaca5c11452648d2fbba869726264641d3ccd | |
| parent | 10a8409ac7ef9388375e3b09da25a9c7e1931fef (diff) | |
| download | idalius-eb63d1a9fd7afc69b77eb7fc2a3e4c454d65a23b.tar.xz | |
Men: Allow replacement on edge(s) of words
| -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 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/; |