Fix inGroup expansion (#2378)
This commit is contained in:
parent
231ec50d63
commit
808f6e870b
|
@ -623,7 +623,7 @@ sub substitute {
|
||||||
$expr =~ s/\bskip\b/q\{999_SKIP\}/g;
|
$expr =~ s/\bskip\b/q\{999_SKIP\}/g;
|
||||||
|
|
||||||
# handle inGroup
|
# handle inGroup
|
||||||
$expr =~ s/\binGroup\(([^)]*)\)/listMatch(\$s->{'hGroups'},$1,1),/g;
|
$expr =~ s/\binGroup\(([^)]*)\)/listMatch(\$s->{'hGroups'},$1,1)/g;
|
||||||
|
|
||||||
return $expr;
|
return $expr;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user