diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-18 13:24:14 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-06-18 14:10:44 -0600 |
| commit | bfac13d4c01b30980b9d258726edf1d1dbc6636f (patch) | |
| tree | 09abaccdfa0e2343e01e7e846600ce98a13a66ba /pp.c | |
| parent | a2c659f2396d62ae8cc2144386afe0dfba0bf87f (diff) | |
| download | perl-bfac13d4c01b30980b9d258726edf1d1dbc6636f.tar.gz | |
pp.c: Use correct size for two arrays.
The number of bytes the result of changing the case of a single UTF-8
character is given by UTF8_MAXBYTES_CASE. In one of these arrays, space
is saved by using the proper #define; in the other there is no change
except on EBCDIC platforms.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3738,7 +3738,7 @@ PP(pp_uc) if (DO_UTF8(source)) { const U8 *const send = s + len; - U8 tmpbuf[UTF8_MAXBYTES+1]; + U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; bool tainted = FALSE; /* All occurrences of these are to be moved to follow any other marks. @@ -4141,7 +4141,7 @@ PP(pp_fc) const U8 *s; const U8 *send; U8 *d; - U8 tmpbuf[UTF8_MAXBYTES * UTF8_MAX_FOLD_CHAR_EXPAND + 1]; + U8 tmpbuf[UTF8_MAXBYTES_CASE + 1]; const bool full_folding = TRUE; const U8 flags = ( full_folding ? FOLD_FLAGS_FULL : 0 ) | ( IN_LOCALE_RUNTIME ? FOLD_FLAGS_LOCALE : 0 ); |