diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-01-22 02:20:12 +0200 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-01-22 00:17:40 +0000 |
| commit | 89ebb4a3f2a55825eeed13aaf58db5c73d2140ef (patch) | |
| tree | a66444144493fa61d6befce0c9bf1358973f9872 /toke.c | |
| parent | 80a13697042a4d823de61ba24b77aa9d893765d6 (diff) | |
| download | perl-89ebb4a3f2a55825eeed13aaf58db5c73d2140ef.tar.gz | |
Re: uc($long_utf8_string) exhausts memory
Message-Id: <41F1801C.3080201@iki.fi>
Make buffer size estimates for utf8 case conversion less maximally
pessimistic
p4raw-id: //depot/perl@23857
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1704,7 +1704,7 @@ S_scan_const(pTHX_ char *start) UV uv = utf8_to_uvchr((U8*)str, 0); if (uv < 0x100) { - U8 tmpbuf[UTF8_MAXLEN+1], *d; + U8 tmpbuf[UTF8_MAXBYTES+1], *d; d = uvchr_to_utf8(tmpbuf, UNI_TO_NATIVE(uv)); sv_setpvn(res, (char *)tmpbuf, d - tmpbuf); @@ -7137,7 +7137,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims) I32 brackets = 1; /* bracket nesting level */ bool has_utf8 = FALSE; /* is there any utf8 content? */ I32 termcode; /* terminating char. code */ - U8 termstr[UTF8_MAXLEN]; /* terminating string */ + U8 termstr[UTF8_MAXBYTES]; /* terminating string */ STRLEN termlen; /* length of terminating string */ char *last = NULL; /* last position for nesting bracket */ @@ -8230,7 +8230,7 @@ Perl_scan_vstring(pTHX_ char *s, SV *sv) if (!isALPHA(*pos)) { UV rev; - U8 tmpbuf[UTF8_MAXLEN+1]; + U8 tmpbuf[UTF8_MAXBYTES+1]; U8 *tmpend; if (*s == 'v') s++; /* get past 'v' */ |