diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 05:18:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 05:18:45 +0000 |
| commit | b4e400f9f0f3998e635cdce0c2d2e790cbe42caa (patch) | |
| tree | b638c44345271b6f0f9020e6ccc262fb9c21b4c5 /perl.c | |
| parent | 18e548ce1d77b525add551f80ef335f852cf9389 (diff) | |
| download | perl-b4e400f9f0f3998e635cdce0c2d2e790cbe42caa.tar.gz | |
Unicode: add ToFold mapping. Not used yet; but basically
a more useful mapping for caseless aka case-ignoring than
doing either lc($a) eq lc($b) or uc($a) eq uc($b); the full
algorithm for creating the foldings uses equivalence classes,
see http://www.unicode.org/unicode/reports/tr21/
Hopefully this feature will be used in //i.
(The folding tables were introduced by #12689.)
p4raw-id: //depot/perl@12807
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -666,6 +666,7 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_utf8_toupper); SvREFCNT_dec(PL_utf8_totitle); SvREFCNT_dec(PL_utf8_tolower); + SvREFCNT_dec(PL_utf8_tofold); PL_utf8_alnum = Nullsv; PL_utf8_alnumc = Nullsv; PL_utf8_ascii = Nullsv; @@ -683,6 +684,7 @@ perl_destruct(pTHXx) PL_utf8_toupper = Nullsv; PL_utf8_totitle = Nullsv; PL_utf8_tolower = Nullsv; + PL_utf8_tofold = Nullsv; if (!specialWARN(PL_compiling.cop_warnings)) SvREFCNT_dec(PL_compiling.cop_warnings); |