diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-05-31 22:35:40 +0100 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-06-02 00:29:54 +0100 |
| commit | eb7e169eaa8ff0e7e9a629f87889b08c355568e1 (patch) | |
| tree | 50b61983fb3eb7854cb0b1933fc41007a37f95d2 /cop.h | |
| parent | 499aa13271ff03425a8258615a0702c5b830be8b (diff) | |
| download | perl-eb7e169eaa8ff0e7e9a629f87889b08c355568e1.tar.gz | |
Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -1094,10 +1094,15 @@ struct context { #define CXINC (cxstack_ix < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc())) -#define G_SCALAR 2 -#define G_ARRAY 3 -#define G_VOID 1 -#define G_WANT 3 +#define G_SCALAR 2 +#define G_LIST 3 +#define G_VOID 1 +#define G_WANT 3 + +#ifndef PERL_CORE + /* name prior to 5.31.1 */ +# define G_ARRAY G_LIST +#endif /* extra flags for Perl_call_* routines */ #define G_DISCARD 0x4 /* Call FREETMPS. |