Message-Id: <
200604291759.k3THxTji032009@kosh.hut.fi>
p4raw-id: //depot/perl@28042
if (SvOK(source)) {
s = (const U8*)SvPV_nomg_const(source, slen);
} else {
- s = "";
+ s = (U8*)"";
slen = 0;
}
dest = TARG;
SvUPGRADE(dest, SVt_PV);
- d = SvGROW(dest, need);
+ d = (U8*)SvGROW(dest, need);
(void)SvPOK_only(dest);
SETs(dest);
if (SvOK(source)) {
s = (const U8*)SvPV_nomg_const(source, len);
} else {
- s = "";
+ s = (U8*)"";
len = 0;
}
min = len + 1;
SvUPGRADE(dest, SVt_PV);
- d = SvGROW(dest, min);
+ d = (U8*)SvGROW(dest, min);
(void)SvPOK_only(dest);
SETs(dest);
if (SvOK(source)) {
s = (const U8*)SvPV_nomg_const(source, len);
} else {
- s = "";
+ s = (U8*)"";
len = 0;
}
min = len + 1;
SvUPGRADE(dest, SVt_PV);
- d = SvGROW(dest, min);
+ d = (U8*)SvGROW(dest, min);
(void)SvPOK_only(dest);
SETs(dest);