We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 28395db commit 8287c4fCopy full SHA for 8287c4f
src/pl/plperl/plperl.c
@@ -685,7 +685,7 @@ plperl_trusted_init(void)
685
if (!isGV_with_GP(sv) || !GvCV(sv))
686
continue;
687
SvREFCNT_dec(GvCV(sv)); /* free the CV */
688
- GvCV(sv) = NULL; /* prevent call via GV */
+ GvCV_set(sv, NULL); /* prevent call via GV */
689
}
690
hv_clear(stash);
691
/* invalidate assorted caches */
src/pl/plperl/plperl.h
@@ -43,6 +43,11 @@
43
#undef bool
44
#endif
45
46
+/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */
47
+#ifndef GvCV_set
48
+#define GvCV_set(gv, cv) (GvCV(gv) = cv)
49
+#endif
50
+
51
/* routines from spi_internal.c */
52
int spi_DEBUG(void);
53
int spi_LOG(void);
0 commit comments