diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-06-04 19:35:04 -0400 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-06-04 19:35:04 -0400 |
| commit | cb252c2acd415d304e3254e99f82058d11a69e04 (patch) | |
| tree | c86f1603aff401843079285fa9848e819ce76e74 /src | |
| parent | 39dbc62adedc8758580d099e4a21f1e5a4a0bf85 (diff) | |
Allow building with perl 5.14.
Patch from Alex Hunsaker.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.c | 2 | ||||
| -rw-r--r-- | src/pl/plperl/plperl.h | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 72c4dc271b4..17544893efb 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -874,7 +874,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); diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h index 6d58f117ca1..1d38d9e6f0a 100644 --- a/src/pl/plperl/plperl.h +++ b/src/pl/plperl/plperl.h @@ -42,6 +42,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 + /* declare routines from plperl.c for access by .xs files */ HV *plperl_spi_exec(char *, int); void plperl_return_next(SV *); |