# define SvREFCNT_inc_simple_void(sv) SvREFCNT_inc(sv)
#endif
+#ifndef GvCV_set
+# define GvCV_set(G, C) (GvCV(G) = (C))
+#endif
+
#ifndef HvNAME_get
# define HvNAME_get(H) HvNAME(H)
#endif
# define SU_SAVE_GP_SIZE 6
#elif !SU_HAS_PERL(5, 13, 0) || (SU_RELEASE && SU_HAS_PERL_EXACT(5, 13, 0))
# define SU_SAVE_GP_SIZE 3
-#else
+#elif !SU_HAS_PERL(5, 13, 8)
# define SU_SAVE_GP_SIZE 4
+#else
+# define SU_SAVE_GP_SIZE 3
#endif
#ifndef SvCANEXISTDELETE
break;
case SVt_PVCV:
SAVESPTR(GvCV(gv));
- GvCV(gv) = NULL;
+ GvCV_set(gv, NULL);
break;
default:
gv = (GV *) save_scalar(gv);