Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.h b/pp.h
index cea956db40..d773e3f172 100644
--- a/pp.h
+++ b/pp.h
@@ -612,7 +612,7 @@ Does not use C<TARG>.  See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
             if (gimme == G_VOID) {                              \
                 NOOP;                                           \
             }                                                   \
-            else if (gimme == G_ARRAY) {			\
+            else if (gimme == G_LIST) {				\
                 SSize_t i;                                      \
                 SSize_t len;                                    \
                 assert(SvTYPE(tmpsv) == SVt_PVAV);              \