# define sv_catpvn_nomg sv_catpvn
#endif
+#ifndef mPUSHu
+# define mPUSHu(U) PUSHs(sv_2mortal(newSVuv(U)))
+#endif
+
#ifndef HvNAME_get
# define HvNAME_get(H) HvNAME(H)
#endif
SvUVX(val) = PTR2UV(src);
SvIOK_on(val);
SvIsUV_on(val);
+ SvREADONLY_on(val);
ptable_store(MY_CXT.map, o, val);
}
SV *code = indirect_detag(hint);
if (hint) {
+ SV *file;
+ line_t line;
dSP;
+ onamesv = sv_mortalcopy(onamesv);
+ mnamesv = sv_mortalcopy(mnamesv);
+
+#ifdef USE_ITHREADS
+ file = newSVpv(CopFILE(&PL_compiling), 0);
+#else
+ file = sv_mortalcopy(CopFILESV(&PL_compiling));
+#endif
+ line = CopLINE(&PL_compiling);
+
ENTER;
SAVETMPS;
PUSHMARK(SP);
- EXTEND(SP, 2);
+ EXTEND(SP, 4);
PUSHs(onamesv);
PUSHs(mnamesv);
+ PUSHs(file);
+ mPUSHu(line);
PUTBACK;
call_sv(code, G_VOID);