continue;
case 2:
if (!newkey)
- newkey = key = umg->mg_obj = sv_2mortal(newSVsv(umg->mg_obj));
+ newkey = key = umg->mg_obj = sv_mortalcopy(umg->mg_obj);
}
switch (action) {
case 0:
newCONSTSUB(stash, "VMG_THREADSAFE", newSVuv(VMG_THREADSAFE));
}
+#if VMG_THREADSAFE
+
void
CLONE(...)
PROTOTYPE: DISABLE
PREINIT:
HV *hv;
CODE:
-#if VMG_THREADSAFE
{
HE *key;
dMY_CXT;
MY_CXT_CLONE;
MY_CXT = hv;
}
+
#endif /* VMG_THREADSAFE */
SV *_wizard(...)