projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dedf98b
)
The SvGROW() might move the PV.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 7 Apr 2003 19:25:39 +0000
(19:25 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 7 Apr 2003 19:25:39 +0000
(19:25 +0000)
p4raw-id: //depot/perl@19163
pp.c
patch
|
blob
|
history
diff --git
a/pp.c
b/pp.c
index
1bbe895
..
fde8b12
100644
(file)
--- 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);