projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Use `` instead of -| to be a little bit more portable,
[p5sagit/p5-mst-13.2.git]
/
sv.c
diff --git
a/sv.c
b/sv.c
index
8f5b0a6
..
217df87
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-1584,6
+1584,9
@@
Perl_sv_grow(pTHX_ register SV *sv, register STRLEN newlen)
SvREADONLY_off(sv);
}
New(703, s, newlen, char);
+ if (SvPVX(sv) && SvCUR(sv)) {
+ Move(SvPVX(sv), s, SvCUR(sv), char);
+ }
}
SvPV_set(sv, s);
SvLEN_set(sv, newlen);