summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-02-19 01:55:14 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-02-19 01:55:14 +0000
commit3ec562b0bffb8b8b48df56ef7460b59729c19345 (patch)
treec085090f909cee31ff07f8c4df4e2a12765ec422 /pp.c
parenta6da3000f891055d63501a206d4a09ca94f64209 (diff)
downloadperl-3ec562b0bffb8b8b48df56ef7460b59729c19345.tar.gz
Not extending enough.
p4raw-id: //depot/perl@14758
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 51facc0730..be6d7233a2 100644
--- a/pp.c
+++ b/pp.c
@@ -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;