Allow building with perl 5.14.
Patch from Alex Hunsaker.
This commit is contained in:
parent
15d8cfb77b
commit
c985cf0d12
@ -700,7 +700,7 @@ plperl_trusted_init(void)
|
||||
if (!isGV_with_GP(sv) || !GvCV(sv))
|
||||
continue;
|
||||
SvREFCNT_dec(GvCV(sv)); /* free the CV */
|
||||
GvCV(sv) = NULL; /* prevent call via GV */
|
||||
GvCV_set(sv, NULL); /* prevent call via GV */
|
||||
}
|
||||
hv_clear(stash);
|
||||
/* invalidate assorted caches */
|
||||
|
@ -43,6 +43,11 @@
|
||||
#undef bool
|
||||
#endif
|
||||
|
||||
/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */
|
||||
#ifndef GvCV_set
|
||||
#define GvCV_set(gv, cv) (GvCV(gv) = cv)
|
||||
#endif
|
||||
|
||||
/* routines from spi_internal.c */
|
||||
int spi_DEBUG(void);
|
||||
int spi_LOG(void);
|
||||
|
Loading…
x
Reference in New Issue
Block a user