diff options
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 31c77dee7a..8102c29cd3 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -93,6 +93,7 @@ output_invlist("AboveLatin1", [ 256 ]); for my $prop (qw( ASCII + L1Cased VertSpace PerlSpace XPerlSpace @@ -132,7 +133,8 @@ for my $prop (qw( # artifically cutting that off at 256 because 256 is the first code point # above Latin1, we let the range go to its natural ending. That gives us # extra information with no added space taken. - my $lookup_prop = $prop =~ s/^L1/X/r; + my $lookup_prop = $prop; + $lookup_prop =~ s/^L1Posix/XPosix/ or $lookup_prop =~ s/^L1//; my @invlist = prop_invlist($lookup_prop); if ($lookup_prop ne $prop) { |