Allow building with perl 5.14.

Patch from Alex Hunsaker.
pull/1/head
Andrew Dunstan 14 years ago
parent 36a1ba9d5e
commit ccd69b8886
  1. 2
      src/pl/plperl/plperl.c
  2. 5
      src/pl/plperl/plperl.h

@ -926,7 +926,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);

@ -85,6 +85,11 @@
(U32)HeKUTF8(he))
#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
/* declare routines from plperl.c for access by .xs files */
HV *plperl_spi_exec(char *, int);
void plperl_return_next(SV *);

Loading…
Cancel
Save