diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-19 01:55:14 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-19 01:55:14 +0000 |
commit | 3ec562b0bffb8b8b48df56ef7460b59729c19345 (patch) | |
tree | c085090f909cee31ff07f8c4df4e2a12765ec422 /pp.c | |
parent | a6da3000f891055d63501a206d4a09ca94f64209 (diff) | |
download | perl-3ec562b0bffb8b8b48df56ef7460b59729c19345.tar.gz |
Not extending enough.
p4raw-id: //depot/perl@14758
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3351,7 +3351,7 @@ PP(pp_uc) } else { (void)SvUPGRADE(TARG, SVt_PV); - SvGROW(TARG, (len * 2) + 1); + SvGROW(TARG, (len * UTF8_MAXLEN_UCLC) + 1); (void)SvPOK_only(TARG); d = (U8*)SvPVX(TARG); send = s + len; @@ -3418,7 +3418,7 @@ PP(pp_lc) } else { (void)SvUPGRADE(TARG, SVt_PV); - SvGROW(TARG, (len * 2) + 1); + SvGROW(TARG, (len * UTF8_MAXLEN_UCLC) + 1); (void)SvPOK_only(TARG); d = (U8*)SvPVX(TARG); send = s + len; |