}
}
-static SV *
+STATIC SV *
save_scalar_at(SV **sptr)
{
dTHR;
}
void
+#ifdef PERL_OBJECT
+save_destructor(void (*f) (void*, void*), void* p)
+#else
save_destructor(void (*f) (void *), void *p)
+#endif
{
dTHR;
SSCHECK(3);
break;
case SAVEt_DESTRUCTOR:
ptr = SSPOPPTR;
- (*SSPOPDPTR)(ptr);
+ (*SSPOPDPTR)(THIS_ ptr);
break;
case SAVEt_REGCONTEXT:
{