SvIV_set(). Otherwise, compiling with -DPERL_DEBUG_COW fails.
p4raw-id: //depot/perl@25708
SvUPGRADE(ST(0),SVt_PVNV);
sv_setpvn(ST(0),ptr,len);
if(SvNOK(num) || SvPOK(num) || SvMAGICAL(num)) {
- SvNVX(ST(0)) = SvNV(num);
+ SvNV_set(ST(0), SvNV(num));
SvNOK_on(ST(0));
}
#ifdef SVf_IVisUVXXXX
}
#endif
else {
- SvIVX(ST(0)) = SvIV(num);
+ SvIV_set(ST(0), SvIV(num));
SvIOK_on(ST(0));
}
XSRETURN(1);