Fix inGroup expansion (#2378)

This commit is contained in:
Maxime Besson 2020-11-11 13:27:43 +01:00
parent 231ec50d63
commit 808f6e870b

View File

@ -623,7 +623,7 @@ sub substitute {
$expr =~ s/\bskip\b/q\{999_SKIP\}/g;
# handle inGroup
$expr =~ s/\binGroup\(([^)]*)\)/listMatch(\$s->{'hGroups'},$1,1),/g;
$expr =~ s/\binGroup\(([^)]*)\)/listMatch(\$s->{'hGroups'},$1,1)/g;
return $expr;
}