From d5a15ac20b88745ab30b67e8201632b6f5e6a04c Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 7 Apr 2003 19:25:39 +0000 Subject: [PATCH] The SvGROW() might move the PV. p4raw-id: //depot/perl@19163 --- pp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pp.c b/pp.c index 1bbe895..fde8b12 100644 --- a/pp.c +++ b/pp.c @@ -3387,7 +3387,8 @@ PP(pp_chr) tmps = SvPVX(TARG); if (SvCUR(TARG) == 0 || !is_utf8_string((U8*)tmps, SvCUR(TARG)) || memEQ(tmps, "\xef\xbf\xbd\0", 4)) { - SvGROW(TARG,3); + SvGROW(TARG, 3); + tmps = SvPVX(TARG); SvCUR_set(TARG, 2); *tmps++ = (U8)UTF8_EIGHT_BIT_HI(value); *tmps++ = (U8)UTF8_EIGHT_BIT_LO(value); -- 2.7.4