diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-18 05:37:38 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-18 15:23:38 +0000 |
| commit | 9a957fbc017c803266bc4e3766dfcbfb58cfa99b (patch) | |
| tree | beed88f144e14ca4175e374522d11a7175c151eb /utf8.c | |
| parent | 8896765ab803e8ecde87ca250efb892518f0df16 (diff) | |
| download | perl-9a957fbc017c803266bc4e3766dfcbfb58cfa99b.tar.gz | |
The continuing plod through embed.fnc
Message-ID: <20050718153738.GB20193@petdance.com>
p4raw-id: //depot/perl@25172
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1451,7 +1451,8 @@ The "normal" is a string like "ToLower" which means the swash =cut */ UV -Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special) +Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, + SV **swashp, const char *normal, const char *special) { U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; STRLEN len = 0; @@ -1625,7 +1626,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits { dVAR; SV* retval; - SV* tokenbufsv = sv_newmortal(); + SV* const tokenbufsv = sv_newmortal(); dSP; const size_t pkg_len = strlen(pkg); const size_t name_len = strlen(name); |