Allow building with perl 5.14.

Patch from Alex Hunsaker.
REL8_4_STABLE
Andrew Dunstan 15 years ago
parent 15d8cfb77b
commit c985cf0d12
  1. 2
      src/pl/plperl/plperl.c
  2. 5
      src/pl/plperl/plperl.h

@ -700,7 +700,7 @@ plperl_trusted_init(void)
if (!isGV_with_GP(sv) || !GvCV(sv)) if (!isGV_with_GP(sv) || !GvCV(sv))
continue; continue;
SvREFCNT_dec(GvCV(sv)); /* free the CV */ 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); hv_clear(stash);
/* invalidate assorted caches */ /* invalidate assorted caches */

@ -43,6 +43,11 @@
#undef bool #undef bool
#endif #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 */ /* routines from spi_internal.c */
int spi_DEBUG(void); int spi_DEBUG(void);
int spi_LOG(void); int spi_LOG(void);

Loading…
Cancel
Save