diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-09 17:45:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-09 20:07:14 +0000 |
| commit | f54cb97a39f1a5849851e77a33524dfca2644cf5 (patch) | |
| tree | 63ac7dcf435b959ee157bc3bd9c11eb775192034 /utf8.c | |
| parent | a0981a788197c6d427ceaf558d0dc8713c7737b3 (diff) | |
| download | perl-f54cb97a39f1a5849851e77a33524dfca2644cf5.tar.gz | |
attributes-two.patch, the next batch
Message-ID: <20050509154518.GA18273@petdance.com>
p4raw-id: //depot/perl@24431
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1400,7 +1400,6 @@ The "normal" is a string like "ToLower" which means the swash UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special) { - UV uv1; U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; STRLEN len = 0; @@ -1408,7 +1407,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const /* The NATIVE_TO_UNI() and UNI_TO_NATIVE() mappings * are necessary in EBCDIC, they are redundant no-ops * in ASCII-ish platforms, and hopefully optimized away. */ - uv1 = NATIVE_TO_UNI(uv0); + const UV uv1 = NATIVE_TO_UNI(uv0); uvuni_to_utf8(tmpbuf, uv1); if (!*swashp) /* load on-demand */ |