diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 14:19:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 14:19:28 +0000 |
| commit | e7ae6809ba5905bb2ce7c09e88c6e2bdb5c913af (patch) | |
| tree | cc4b0bc31e5af4e0e6348a9c18f42da46b937b5a /pp.c | |
| parent | 503ec68fa54cd074101e4004bdfe3124adc2a0df (diff) | |
| download | perl-e7ae6809ba5905bb2ce7c09e88c6e2bdb5c913af.tar.gz | |
Unadorned numbers evil.
p4raw-id: //depot/perl@13672
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -3210,7 +3210,7 @@ PP(pp_ucfirst) STRLEN slen; if (DO_UTF8(sv)) { - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; STRLEN ulen; STRLEN tculen; @@ -3265,7 +3265,7 @@ PP(pp_lcfirst) if (DO_UTF8(sv) && (s = (U8*)SvPV(sv, slen)) && slen && UTF8_IS_START(*s)) { STRLEN ulen; - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; U8 *tend; UV uv; @@ -3322,7 +3322,7 @@ PP(pp_uc) STRLEN ulen; register U8 *d; U8 *send; - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; s = (U8*)SvPV(sv,len); if (!len) { @@ -3389,7 +3389,7 @@ PP(pp_lc) STRLEN ulen; register U8 *d; U8 *send; - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; s = (U8*)SvPV(sv,len); if (!len) { |