diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-06-04 19:37:06 -0400 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-06-04 19:37:06 -0400 |
| commit | 8287c4f98ecf8f075064973d032f75ca8373c5c4 (patch) | |
| tree | 895850ef3e7b87433863181d684482daed2dc97d /src | |
| parent | 28395db4ea80473a171598785bf2652a01802889 (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 82464e59ced..7206e2e2da7 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -685,7 +685,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 */ diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h index 5a93f15ccf3..08aba48df85 100644 --- a/src/pl/plperl/plperl.h +++ b/src/pl/plperl/plperl.h @@ -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); |