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)

---
 gv.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 10b729bf02..fcde2123c0 100644
--- a/gv.c
+++ b/gv.c
@@ -3630,7 +3630,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
         case G_VOID:
             myop.op_flags |= OPf_WANT_VOID;
             break;
-        case G_ARRAY:
+        case G_LIST:
             if (flags & AMGf_want_list) {
                 myop.op_flags |= OPf_WANT_LIST;
                 break;
@@ -3679,7 +3679,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
             res = &PL_sv_undef;
             SP = PL_stack_base + oldmark;
             break;
-        case G_ARRAY:
+        case G_LIST:
             if (flags & AMGf_want_list) {
                 res = sv_2mortal((SV *)newAV());
                 av_extend((AV *)res, nret);
-- 
cgit v1.2.1