From eb7e169eaa8ff0e7e9a629f87889b08c355568e1 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Mon, 31 May 2021 22:35:40 +0100
Subject: Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)

---
 cop.h | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'cop.h')

diff --git a/cop.h b/cop.h
index 0c2f07950f..33463a0ab2 100644
--- a/cop.h
+++ b/cop.h
@@ -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.
-- 
cgit v1.2.1