va_list args;
SV* message;
- PERL_UNUSED_ARG(data); /* for moose-compat */
-
assert(metaobject);
assert(fmt);
{
dSP;
PUSHMARK(SP);
- EXTEND(SP, 4);
+ EXTEND(SP, 6);
PUSHs(metaobject);
mPUSHs(message);
if(data){ /* extra arg, might be useful for debugging */
- mPUSHs(newSVpsv("data"));
+ mPUSHs(newSVpvs("data"));
PUSHs(data);
mPUSHs(newSVpvs("depth"));
mPUSHi(-1);