diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-09-24 13:23:21 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-10-01 09:58:08 -0600 |
| commit | 7b952154426e53253db1065e8e73307cafb4c28b (patch) | |
| tree | 961df07252889efbbd02fc2dc53cfbfec06aad78 /perl.c | |
| parent | a34094a9f21d9970be58b6482fe6e3245019558e (diff) | |
| download | perl-7b952154426e53253db1065e8e73307cafb4c28b.tar.gz | |
Don't use swash to find cntrls
Unicode stability policy guarantees that no code points will ever be
added to the control characters beyond those already in it.
All such characters are in the Latin1 range, and so the Perl core
already knows which ones those are, and so there is no need to go out to
disk and create a swash for these.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -985,7 +985,6 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_utf8_alnum); SvREFCNT_dec(PL_utf8_alpha); SvREFCNT_dec(PL_utf8_space); - SvREFCNT_dec(PL_utf8_cntrl); SvREFCNT_dec(PL_utf8_graph); SvREFCNT_dec(PL_utf8_digit); SvREFCNT_dec(PL_utf8_upper); @@ -1004,7 +1003,6 @@ perl_destruct(pTHXx) PL_utf8_alnum = NULL; PL_utf8_alpha = NULL; PL_utf8_space = NULL; - PL_utf8_cntrl = NULL; PL_utf8_graph = NULL; PL_utf8_digit = NULL; PL_utf8_upper = NULL; |