XPVMG *any;
if (!PL_dirty)
- return sv_2mortal(newSVpvs(""));
+ return newSVpvs_flags("", SVs_TEMP);
if (PL_mess_sv)
return PL_mess_sv;
PUSHMARK(SP);
EXTEND(SP,2);
PUSHs(SvTIED_obj((SV*)io, mg));
- PUSHs(newSVpvn_flags(message, msglen, SVs_TEMP));
+ mPUSHp(message, msglen);
PUTBACK;
call_method("PRINT", G_SCALAR);
(tmpsv = (SV*)SvRV(sv)) && /* assign deliberate */
SvTYPE(tmpsv) == SVt_REGEXP)
{
- return tmpsv;
+ return (REGEXP*) tmpsv;
}
}