diff options
Diffstat (limited to 'src/pl/plperl/plperl.h')
| -rw-r--r-- | src/pl/plperl/plperl.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h index 9179bbd3390..0146d60a116 100644 --- a/src/pl/plperl/plperl.h +++ b/src/pl/plperl/plperl.h @@ -88,6 +88,13 @@ #define GvCV_set(gv, cv) (GvCV(gv) = cv) #endif +/* Perl 5.19.4 changed array indices from I32 to SSize_t */ +#if PERL_BCDVERSION >= 0x5019004 +#define AV_SIZE_MAX SSize_t_MAX +#else +#define AV_SIZE_MAX I32_MAX +#endif + /* declare routines from plperl.c for access by .xs files */ HV *plperl_spi_exec(char *, int); void plperl_return_next(SV *); |