#undef Perl_save_destructor
void
-Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_t f, void* p)
+Perl_save_destructor(pTHXo_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
{
((CPerlObj*)pPerl)->Perl_save_destructor(f, p);
}
+#undef Perl_save_destructor_x
+void
+Perl_save_destructor_x(pTHXo_ DESTRUCTORFUNC_t f, void* p)
+{
+ ((CPerlObj*)pPerl)->Perl_save_destructor_x(f, p);
+}
+
#undef Perl_save_freesv
void
Perl_save_freesv(pTHXo_ SV* sv)