diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-12-30 21:14:58 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-12-31 11:03:28 -0700 |
| commit | b0d691b286d92d66e559deb75501333ab819383b (patch) | |
| tree | a3148f7f77ccb80faadea0a5f30774485f7f36b1 /intrpvar.h | |
| parent | e8d596e06a8502f992b53ea859e136ec40f7497c (diff) | |
| download | perl-b0d691b286d92d66e559deb75501333ab819383b.tar.gz | |
regex: Add pseudo-Posix class: 'cased'
/[[:upper:]]/i and /[[:lower:]]/i should match the Unicode property
\p{Cased}. This commit introduces a pseudo-Posix class, internally named
'cased', to represent this. This class isn't specifiable by the user,
except through using either /[[:upper:]]/i or /[[:lower:]]/i. Debug
output will say ':cased:'.
The regex parsing either of :lower: or :upper: will change them into
:cased:, where already existing logic can handle this, just like any
other class.
This commit fixes the regression introduced in
3018b823898645e44b8c37c70ac5c6302b031381, and that these have never
worked under 'use locale'. The next commit will un-TODO the tests for
these things.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/intrpvar.h b/intrpvar.h index f7176b172f..7a3877b6cf 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -566,8 +566,6 @@ PERLVAR(I, ASCII, SV *) PERLVAR(I, Latin1, SV *) PERLVAR(I, AboveLatin1, SV *) -PERLVAR(I, L1Cased, SV *) - PERLVAR(I, NonL1NonFinalFold, SV *) PERLVAR(I, HasMultiCharFold, SV *) |