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);
- mPUSHs(newSVpvs("depth"));
- mPUSHi(-1);
+ if(data){ /* extra arg, might be useful for debugging */
+ mPUSHs(newSVpvs("data"));
+ PUSHs(data);
+ mPUSHs(newSVpvs("depth"));
+ mPUSHi(-1);
+ }
PUTBACK;