diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-11 10:49:06 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-11 14:01:29 -0700 |
| commit | dab0c3e7e357a28081ca24560f20e83c1d47ce1f (patch) | |
| tree | d9908bba3f41f503a3d7c9bd3bfb5b4c3ab15fd4 /regen | |
| parent | 24ad4a07e88519ae8e63d0b67d519e62a935b577 (diff) | |
| download | perl-dab0c3e7e357a28081ca24560f20e83c1d47ce1f.tar.gz | |
regcomp.c: /[[:lower:]]/i should match the same as /\p{Lower}/i
Same for [[:upper:]] and \p{Upper}. These were matching instead all of
[[:alpha:]] or \p{Alpha}. What /\p{Lower}/i and /\p{Upper}/i match instead
is \p{Cased}, and so that is what these should match.
Diffstat (limited to 'regen')
| -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) { |