Plugins/TypoSub: allow, but ignore, trailing characters after a s/// closed sub

This commit is contained in:
Pragmatic Software 2020-02-07 11:22:16 -08:00
parent 165099b035
commit d92f690195
1 changed files with 1 additions and 1 deletions

View File

@ -57,7 +57,7 @@ sub on_public {
if ($msg =~ m/^\s*s([[:punct:]])/) {
my $separator = $1;
my $sep = quotemeta $separator;
if ($msg =~ m/^\s*s${sep}(.*?)(?<!\\)${sep}(.*?)(?<!\\)${sep}([g]*)\s*$/ or $msg =~ m/^\s*s${sep}(.*?)(?<!\\)${sep}(.*?)$/) {
if ($msg =~ m/^\s*s${sep}(.*?)(?<!\\)${sep}(.*?)(?<!\\)${sep}([g]*).*$/ or $msg =~ m/^\s*s${sep}(.*?)(?<!\\)${sep}(.*)$/) {
my ($regex, $replacement, $modifiers) = ($1, $2, $3);
eval {
my $rx = qr/$regex/;